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LABI*LABLARRAYCINX3; 
nF LARi — 



00286000 

00289000 
00290000 



% 

% 

JL 



STnRARE nF f L AK FS ST flRA G F AHFAS (IF NUMrl L H F I FMFNTS 



00291000 
00292000 
00293000 



X 

X 

JL 



PRUCEDURE 
VALUE 



OF SIZE SZ WITH INITIAL VALUES 
A BASE ADDRESS AT LABLLINX3 

STORAGE(INX^LlTVAL'SZ*NUMbLR); 
IMX#LITVAL#SZ*NUMBERi 



IF LITVAL* AND 



00294000 
00295000 
0Q296Q00 



INTEGER INX>I„ TTVAL>S/»NUMBER> 



00297000 
00298000 
00P99Q04. 



BEGIN 
IF INX * 
FOR INX*; 



THEN LABL(INX); 
H STEP 1 U NTI L N U M9FR 



JUL 



00300000 

00301000 

■ 00102000 



IF LASTPASS ThEN 00303000 
EMITCLITVAL#IF SZ = THEN PREClSIUN ELSE S/,lITPRInT) 00304000 
ELSE i.OCisi rC + r T F S7 = Q THFN PRECTSTON ELSE SZJj 00305000 



END OF STORAGE; 



JL 



00306000 
00307000 

nniQflono 



% 
% 

JL 



LIT ALLOWS CNE TO REFERENCE A LITtRAL WITHOUT 
RESERVING A LOCATION AND STORING IT THERE, 
ATTEMPTS ARF MAHF Tfl UPTlMl?E THE USE UF 



00309000 
00310000 
nnailnoo 



■*'■.■■ 
X 
REAL 



MEMORY 
PROCEDURE LlTtVAL )J 



00312000 
00313000 
00314000 



value val; 

REAL VAL; 
BEGIN 



00315000 
00316000 
0C31 7Q QQ 



LABEL FOUND; 
FOR Il«6 STEP 1 WHILE 
TF P00LEI1 « VAL THEN 



I < NtXTPQOL 

Gn to found; 



DO 



00318000 
00319000 
00320000 



IF LASTPASS THEN FLAG(256>; 
PO0LCNEXTPOOL3 :=VAL/ 
NFXTPOQLtsNFXTPOOL+lJ 



00321000 

00322000 

_ QQ32 3 QQ Q 



FOUND J 

FLSE 



IF LASTPASS 
LIT l» (VAL 



THEN 

J* P0QLA0DRESSCI3). ADDRESS 



♦ VAL. SIZE " PRECISION 



00324000 
00325000 
00326000 



BEGIN 00327000 

POQLUSECnisPOOLUSEU] * < A ) [47-LOC « [ 33 « 5 ] I 47 U ] ; 00328000 

POQLADDRESSCI J >apOOL ADDRESS 1 1 3 * ( 1 ) [PREC I SlGNUSEOS+4-PRECI SIUN003 29Q00 



J47»Ui 



ENDJ 
END OF 



lit; 



00330000 
00331000 
00332000 



X 
X 

JL 



HEX RETURNS 
OF N 



THE HEX REPRESENTATION OF THE RIGHT HALF 



00333000 
00334000 

00335000 



X 

REAL PROCEDURE HEX(N); 
HE¥fRFAUBnQl EANC 



VALUE Hi RLAl N* 



00336000 
00337000 

00338000 



i 4 ' 

i47 

|4U) 



521 



..JSJ* 



19 
20 



25 
26 



27 
28 
29 



31 



34 
, 35 



36 
37 " 

I M 
39 



42 



18 



49 
I SO 



CjO 

CO 



52 
S3 



55 

l 56 



X 

_x_ 



(NIBN.C44U3 I N[3flMOU3 «. NC 32 »36 : 43 «• N126J32J4] & 

N[20»?8l43 & NC14I24UJJ + "666666«} 
A N D BQQ l EAN( w + + + + + + w )?,H?i3;n x 7 ♦ 



Mi- 



00339000 
00340000 
OQiqiQQQ 



% 
% 
STR EA M 



ri F A N H FARS THF ARRAY POlNTfp'TH RV £F* j jn a tA NKS 



FOR 15 WORDS 



00342000 
00343000 
QQ344Q00 



BEGIN 



00345000 
00346000 
00 347 000 



di»=dest; 
sir»nrsTi 



OS 1« 8 LIT " 

— a&jjL-iA-im&j 



END. 



00348000 
00349000 

noiaoooo 



% 



% 
X 



X 

% 



OUTPUT FORMATS INFORMATION IN BUFF. CONTAINED IS THE 
INSTRUCTION cOUNrtRUQCATlON) THE GUANT ITT ( WHAT J OF SIZE 
S? ANH THF TFXT pniMfrR TO BY TP-TS rnHTFn Fnw 7xST/r 



CHARACTERS. THIS PROCEDURE IS USED FUR FORMATING LINE 
PRINTER OUTPUT. 



STREAM PROCEDURE OUTPUT ( BUFF* LOCAT ION* WHAT* SZ* Tp* SIZE ); 

VALUE LOCATlON*WhAT*SZ*SIZE; 
BEG I N : _________^__ 



4U- 



LOCAL t; 
LABEL L1*L2* 
»B.UFFi C- P g DI + 5* 



SltsLOC LOCATION; SliaSl+aJ 

DSt*4 CHR* 

DU«Dl+a; Sji»Lnc S7i 



SlJsSl-SZ; 

TALLY:»4; 

t»=tally; 



s.ijbsi-sz; 

S2(TALLY«sTALLY+63); 



du«di+t; dij»di+t; 
DSjsSZ chr; dsj.sz chr* 
cij«ci*size; 



GO 
GO 

Jill 



TO 

TO 

X0_ 



li; 
L2; 

L2L 



GO TO L2* 

L2I Dit«oi + io; si **tp; 

SlZ£tSH»Sl + lf ns: S 7 CHR)J 



Ll» 

end; 



X 
X 

X 



COPY MOVES STUFF TO BUFF ACCORDING TO TYP. 
FORMAT MTSCFLLANFQUS OUTPUT TO THF PRINTFR. 



THIS IS USED 



X 

STREAM PROCEDURE COPY ( DLST* STUFF* TYP ) ; 
VALUE STUFFtTYP? 



BEGIN 

LABEL 
OI**DESTJ 



T0,T1,T2#T3*EXIT, 
SlfLBC STUFF! 



ci;=ci+typ; 
GO to to; 
GO to ti; 



_lo_L 



GO TO T2J 

GO to ti; 
sn»si*4j 



oh*di + 3; psia 4 chr; go to exit; 



00351000 
00352000 

00354000 

00355000 
f)Q356nnQ 



00357000 
00358000 
0Q 3S. 90 00 



Q0360000 
00361000 
0036200Q 



00363000 
00364000 
00365QQ0 



00366000 
00367000 
00368000 



00369000 
00370000 
Q03n QQQ 



00372000 
00373000 
00374QQQ 



00375000 
00376000 
QQ377QQQ 



00378000 
003/9000 
00380000 



00361000 
00382000 
QQ383QQQ 



00384000 

00*85000 
00386000 



00387000 
00388000 
00 3890 00 



00390000 
00391000 
00*92000 



00393000 
003V4000 
00395000 



00396000 
00397000 
003 98 000 



i/h, 



411 
V.I 
50 



>r 



8 

9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 



23 
24 
25 
26 
27 



28 
29 

30 



32 
33 

34 
35 
36 
37 ~ 



38 
39 
40 
41 
42 
43 



44 
45 



46 
47 
48 
49 
50 



52 

53 



Tl» Sl«sSl+5; DIiaDI+4; DS: = 3 CHR; GU TO EXIT; 

T2» si:=si+6; dii*ci+&; os»= 2 chr; gc to exit; 
tb; sn=sn- i ; n.s;= 7 t.hr; aj tii i;,xn ? 



EXITJ 

end; 
_x 



00399000 

00400000 
00401000 



% 
% 

JL 



00^02000 
00403000 
00404000 



JL 



PRINTREG PRINTS THE REGISTERS USED IN TWO BYTE 
THAT TNVOl \ir KrfiTSTrH IQ NfftTSTrR nPpHATinNS, 



OPERATIONS 
THE MODE IS 



TAKEN INTO ACCOUNT IN INKIT THE REGISTER, SO THAT ONE 
KNOW WHAT ACTUAL REGISTER IS BEING REFERENCED, 



00405000 
00406000 
00407000 



WILL 



PROCEDURE PRINTREG(VAL)' 

VALUE val; 
REAL VAi; 



00408000 
00409000 
Q 041Q 00Q 



BEGIN 



004UOOO 
00412000 
00413000 



end; 



C0PY(LBUFFC8]#TEXTARRAYC2*KEGBASE+(VAL MOD 16)), 3); 
C0PY(LBUFFt73*TEXTARRAYC2*HEGBASE*CVAL OIV 1o)]i3)j 



00414000 
00415000 
0041600 



% 
JL 



X 

% 

JL 



PRINTADDRESS PRINTS THE ADDRESS USED BY An OPERATOR OF 
SIZE SZ AND OPERATION CODE OF WHAT. 



00417000 
00418000 
O0419QQ0 



PROCEDURE PRINTADDRESSCWHAT,SZ); 
VALUE WHAT'SZ; 

REAL HHATtS*; 



00420000 

00421000 

-00422000 



BEGIN 
IF 



004^3000 
00424000 
00425000 



SZ s 3 

' ■ ■ EL SE 



then copy(lbuffc73#hexcwhaT)#o) 



fnu; 



C0PYCLBUFF17J#HEXCIF BOOlEaN ( WHA 1 . C 35 « 1) ) THEN WHAT,C38«lOJ 
ELSE WHAT. [36* 12)), 1); 



00426000 
00427000 
Q0428000 



% 
JL 



00429000 
00430000 
0(1431000 



% 
% 
STREAM 



CQPYTEXT MOVES SZ WORDS (7 CHAR/WORD) FROM SOURCF 



TO DEXT 



004 32000 
00433000 
00434000 



PROCEDURE COPY TE XT (UEST^ SOURCE, S/); 



VALUE 
BEGIN 



SZ 



00435000 
00436000 
00437000 



Srr*SmiRr.F? QTi»nrsr; 



SZCSI taSi+i; 



DS»=7 



CHR)/ 



00438000 
00439000 
nnuaonnn 



END, 



X 
X 

-X- 



00441000 
00442000 
0044-1000 



LOOKUP RETURNS INFORMATION ABOUT OPERATION CODE WHAT 
WH A T AND SIZE SZ S O TH A T PHINTER OUTPUT C A N BE M A D E. 



OF 



X 

REAL PROCEDURE LOOKUP C WHAT* SZ ) ; 
VALUE W HATjSZJ 



00444000 

00445000 

-0 04 4 6000 



REAL WHATfSZJ 
BEGIN 



00447000 
00448000 
00 44 9Q0Q 



X RESULTS 
X WORD INDEX 

J* ROW INDEX 



00450000 
00451000 
00452 



X 
X 

JL 



sz 

REGISTERS 



L40S d J 
[37? 3 3 



C 34 » 33 

[16»8J 



00453000 
00454000 
(10455000 



00456000 
00457000 
004*58000 



17 
'4H| 



52 

•13 ' 



w 



>r 



2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 



13 
14 
15 



16 
17 



19 
20 



21 
22 
23 



25 
26 



27 
28 



30 
31 

I 32 
33 

34 

| 35 
36 

37 " 

I M 
39 



40 

, »1 

42 



43 



48 



49 

I 50 



REAL ScRATCh; 00159000 
LABEL ONE, TwC» 1HREE»L1 *L2»ui,l_4»LL*LLl »LL2#LL3#LL4*LLL#EXl T* 00460000 
S W I TCH S » a Q NE»lW Q » THREE* — — ■ - ■ ■ QQ161Q00 



SWITCH 
SWITCH 
GO TO S 



SSl* 
SSS: 
FS73 



L1»L2*L3#L«J 

»LL1»LL2'LL3»LL«; 



00462000 
00463000 
00464000 



ONE. 
THREES 



lookup: 
lookup: 

.60 T 



= WHA 
= C2x 

X 



T*WHAT + *»096; GO TO EXIT* 

WHAT. t24t 8 J H255[16;408d] <£ (2)[34t3J; 



o e x it ; 



TWO: IF S2:aWHAT,C32:8] LSS 48 OR SZ GTR 51 THEN 

L00KUPl»(SZ + SZ),UOl8J & 
___ . cS Z »SZ )C 39 I 39 i,Q JL C 2 ) C 34 : 45: 3 J & 



00165000 
00166000 
QC16 700Q 



00468000 

00469000 
00470000 



ELSE 
-££04. 



(IF SZ GEO 64 THEN 255 ELSE ftHAT . C40 : 8 ] ) C 16 J 40 : 8 J 



H- 



GO TO SSt»2-4F3l 
Lt» SCRATCH:=0UTP0lNTERCWHAT,t40S8] 0|V 43; 
-L.2J SftRATrHi»iMPnirwTg-ftC-wHA.T>f:iint«.t nm ,;s'i t 



004MOOO 
00472000 
0047 30 00 



GO TO 

on to 



ll; 

-LLX 



00474000 
00475000 
004 76000 



L3: SCRATCH:=SENARRaY[WHAT. [40*81 OIV 41; 
L4« SCRATCH:sfUNAKRAY[WHATtC40?8J OIV 4J/ 

j-jU on td sss[WHAT t r4Q?H3 noo 4 t n; 



go to ll; 



00477000 
00178000 
00479000 



LLl: SCRATCH :*3x( SCRATCH, CHI 13); 
LL2: SCRATCH :*3xcSCKaTCH.C 12: 12] ); 
II 3: SfiRATCHl»3xf SrRATfiH t [aftt131i: 



60 to lll; 
GO TO lll; 
60 TO Ml? 



ooiaoooo 

00481000 
nn483nnn 



ll4: sc«atchi«3xcscraTch.u6ii2J}; go to lll; 

llls lookup:=entler(scratch mod 192) 

ft C C S CB A UH OIV 1V2)*2U37 <45I33 



& (3)C34*45S3 3; 



00183000 
00484000 
00485000 



EXIT: 



end; 



END OF LOOKUP; 



00486000 
00487000 
00488000 



X 

JL 



% 
% 

JL 



INKIT PRINTS WHAT OF SIZE SZ ACCORDING TO 

THE INSTRUCTIONS IN FORM. 

THIS TS THF PLACE WHrRg TttE ACTUAL LTN£ PRTNTINfi TS nONp 



00489000 
00490000 
00491000 



00492000 
00493000 
Q494Q Q0 



PROCEDURE INKITCHHAT#SZ#F0RM#LC); 

vauje nHAT>sZfFnRMfn;; 



REAL WHAT*S2#FQRM»LC; 

IF LISTING THEN 

BEGIN 



00495000 
0Q4960Q0 
004 9^0 00 



00498000 
00499000 
00500000 



INTEGER RSLT; 00501000 

LABEL LlT#PASS* OP #HEAD.ING»tHRS»ExlT» SPECIAL /.L1#L2#l3*L4, STOP; 005q2 000 
SW I T C H S t* LlT>EXlT*UP/E^ i TfPAS.S»ERRS»aPECULf E Xni 005U3000 



SWITCH SSI*L1*L2,LB*L4; 
GO TO SCFOR M+1 Ji 



00504000 
00505000 
00506000 



LITJ QUTPUT(LBUFFCO;UH£xaOc>f 00507000 

IF SZ = 4 THEN HEXl WHAT )&HEXC WHAT ♦ 1 16 : 8 ] ) [ 1 : 37 : 1 U 00508000 
, ELSE HEX (WHAT )>S7>TEiTARRAY[QfQ]tO); 00509000 



0P» 



go to pass; 
output(l8uffc03'hex(loc)*hex(what)#sz* 
tcxTarraYtcrSi t:«i nnKUPf what*sz xj -r ^»7i vi* 



KSLT,tftOia]3/KSL.TtC34:3l>; 
IF RSLT. [16:03 X THEN 
IF RSLT. [16:83 s 25^ THEN PRI NT ADORE SSC WH AT » S7 ) 



00510000 
00511000 
005l2n00 



ELSE PRINTREG(RSLT,C16»83); 
IF ERRORNUMBER ■ THEN GO TO PASS; 
HRfTEft, INFt1?>LBl.lFFt*3 Li 



00513000 
00514000 
00515000 



00516000 
00517000 
00518000 






2 
3 

4 
6 



7 
8 
9 
K) 
11 
12 



13 
14 
15 



16 
17 
IB 



19 
20 
21 



22 
23 



24 

26 



27 
28 
29 



30 
31 " 
32 
33 
34 
35 
36 
37 " 



39 



45 
46 
47 
48 



49 

50 



54 



55 
56 



*1 



clearline; 

ERKS: FOR li.O STEP 
BEGIN 



1 UNTIL lRROKMAX DO 



00bl9000 
00520000 

00521000 



IF BOOLEAN(ERRORNUMBEK) THEN 00522000 

BEGIN 00523000 

C0PYTFXT(LBUFF[9J>TFXTARRAYtf HR0 t)# ERHBASE4-ERRSIZF Kl]»OOb24O0O 



LRRSUE); 
WRlT£CLINE»lb»LBUFFt*3); 



FNDi 



if errornumber 
end; 

ERWORNUMBERisOi 



:ERRURNUMBER DIV 2 * THEN GO TO STOP; 



00b2b000 
00526000 
00527000 



00528000 
00529000 
Q Q53Q 000 



STUPt 



SPtClAti 



clearline; 
go to exit; 
fin to ssrszi 



Li > WRITE(LlNECPAGt]); 
L2» WRITECLINEIDBL3); 
-UU WRTTECLTNE)i 



0U531000 
00532000 
00 *> 3 3000 



go tu exit; 
go to exit; 
fin tu exit; 



00534Q00 
00535000 
00536000. 



L4S COPYTEXT(LBLFFLO]#STARSFOSM» \7)i 
PAi>Sl HRITE(LlNE»15#LBUFFC*])i 

c lea rline ; 



EXIT* 

end of inkit; 

-X : ■ 



00537000 
00538000 
005 3 90 



% 
% 



00540000 

00541000 

- 00 54 2000 



HEADING IS USED TO PRINT HEADINGS ON OUTPUT LISTINGS. 



PROCEDURE HEADING(A1* A2'A3»A4# A5); 
VALUE A1#A2»A3#A4*A5; 
REAL — A 1, A 2, A 3, A ' l,A ^ ; 



00543000 
00544000 
00i »4 5000 



00546000 
00547000 
00546000 



BEGIN 



CnPYTEXT(LBtTFI13iAlfA5)i 



INKIT(0#0*4*0); 
tut) OF HFADINfil 



00549000 
O05SOO00 
0Q5bl0Q0 



00552000 
005b3000 
00554000 



% 

% 

JL 



MfWE IS USED HY THF FMlTTKH TO P1..ACF INKilRMATIHN IN THF, 



X 
X 



CODE FILE, 
BEGINNING 



00555000 
00536000 
005^7000 



STUFF 
AT BYTE 



OF LtNGTH 
DTYPE. 



TYPE+1 IS PLACED IN WORD 



OObbflOOO 
00559000 
0056Q00Q 



STREAM PROCEDURE MO VE ( STUFF, T YP, KlORU* D TYPE ) ; 

VALUE STUFF, TYP,DTYPE; 
BEGIN 



LABEL L1»L2»L3#L4#LF#D2*03#DA«D5#D22»Q4<»#DF»T1#T2#T3#FINJ 
Sll»LOC stuff; 
CIfCI»TYP? ^ — — L______ 



00561000 
00562000 
5630 00 



GO 

GO 

-00- 



TO 

TO 

JSL 



00564000 

00565000 

-0 0566000 



li; 

L2J 
LAL 



Ll» 

t.,21 



sn»si*2; 
si»»si*6; 

STnSI + 51 



00567000 
00568000 
00569000 



GO TO L4; 
GO TQ L4; 
SKIP 2 5R,? 



G O TO LF 



L3J 

L4» 

_L£J_ 



Si:«Si+4; 
SKIP 4 sb; 



GO TC lf; 



00570000 
00571000 
00572000 



di»*word; 
cii»ci+utype; 

nr\ to of; 



00573000 
00574000 
00 575 000 



00576000 
00577000 
QQ 578Q 0Q 



i»: 



|46| 
|47 
48 



62 
VJ 
S4 
|W 
56 
57 



16 



18 



I 20 
21 



24 
26 



27 
28 



30 
31* 

I » 
33 
34 

I 5B 
36 
37 " 



♦0 



45 
46 



48 



49 
I 50 



52 
I 53 



55 

I 56 



GO 

GO 

-GO- 



TO 
TO 
-Ml 



D2J 
D3; 



02' 



60 TO D5; 

onani + i; 



00b79000 

oo5aoooo 

005 8 1000 



GO 
-GO 



TO 
-XO- 



044; 

0^2; 



031 

04 1 

-Q5X 



022* 
D44! 
OF* 



OHaOI + 2; 
DH«DI + 4; 



GO 
GO 



TO 

TO 



00582000 
00583000 

nn5flftooo 



WiUi 

of; 



SKIP 
SKIP 



ob; 
db; 



go to of; 



00585000 
00586000 
0Q5ri700Q 



CI«=CI+TYP; 
GO TO ti; 
GO TO T2; 



00588000 
00589000 
00590000 



-U± 



GO TO 

32CIF 

8(IF 



T3J 

SB THEN 

SB THFN 



00591000 
00592000 
0059:8000 



031*1 

n s t * 1 



SET 
S ET 



T2! 16MF 
T3? 24CIF 

-F-4-N4 



ELSE 
Fl SF 



SB 
SB 



DS:»i 



reset; 

RESET? 



SKiP 
SKIP 



THEN 
THEN 



DSlsl 

Ds;«i 



SET 
SET 



ELSE 
ELSE 



DS; = i 



reset; 

RESET; 



SB); 

SBW 



GO 

-Gil 



TO 



SKIP 
SKIP 



sb); 

SB); 



GO 
GO 



TO 
TO 



fin; 

-LiNX 



00594000 
00595000 
00596000 



fin; 
fin; 






END OF MOVE; 



00597000 
00598000 
0Q 5 99Q 



% 
% 

-X~ 



SMASH IS USEO BY WRITeRECUKd TU CLEaN UP THE CQDEARRAY 
AFTER A RECORD HAS BEEN WHlTEN TO DISK. 



00600000 
00601000 
00602000 



STREAM PROCEDURE SMASR.(A,B); 

BEGIN 
OIlaAJ SIUBJ 



00603000 
00604000 
006 5000 



pSl E ]| wpS 



rtlnQli 



DSJ*8 

end; 



lit "0"; si «5b; dss=5« wds; 



00606000 
00607000 

ooaoflooo 



X 

X 
JL 



00609000 
00610000 
0Q 6 UO 00 



% 
% 



WRlTERECORQ IS USEO TO KRUE THE CURRENT CODEARRAY TO 
OISK. NQTF THAT THr WfilTF tS ONLY pQNF Or aMY mnr H a S 



BEEN PUT INTO COUEARKaY siNCE ThE LAST CAlL ON WRlTERECORQ 



00612000 
00613000 
00614000 



PROCEDURE WRTTF.RFCORDJ 



IF codeinx t then 

BEGIN 

LASTcnnETNxt«f;onFiMx; 



00615000 

00616000 
00617000 



RECORDS»=RECCRUS + 1; 

WRITECCODE* 60* CODE ARRAY C*])' 
SM*SHCrnnFAHBAYrn].r.nnFABRAYc<sn3 y; 



00618000 
00619000 
00620000 



CO0EINX«»IF 

eno; 



COOEINX LSS 360 THEN ELSE CQDEINX-360J 



00621000 
00622000 
Q 06 230QQ 



% 
% 



00**14000 
00625000 
006-26000 



EMIT COPIES NUMBER BYTLS Uf INFORMATION FROM VAL TO 
THF mOFARRAYf AND PRTNTS A MFSSAflp AC CORnThR Tfl TYP, 



00627000 
00628000 
00629000 



PROCEDURE EMITCVAL#NUMBER,TYP); 
VALUE VAL, NUMBER, TYPi 



REAL VAL, NUMBER'TYP; 
IF LASTPASS THEN 
REG IN 



00630000 
00631000 
006 32000 



MOVE(VAL#NUMBER*l#COOEARiAYCCOOElNX OIV 6J> 

ENTIERCCODEINX MOO 6))i 
IF <CODFlNXI«rODF TNX+NUMBER) SEQ 360 THEN WRITERECOROi 



00633000 
00634000 
00635000 



00636000 
00637000 
00638000 



116 

11 yi 



'24,' 

^ 

128' 



7<» 

h 

:ji 
I I 

w 

". 1 

H4 



• ,:m, 

1',; 

I I 

..."'I 
4,1 

44 

45 

«; 

47 '' 
48 

4a 

50 

3 1 

52 
53 
54 



>r 



► 2 

3 

4 

> 6 

6 

V 

> 8 
9 

10 

12 
13 

IS 

16 

18 
19 

I 2 ° 
21 

22 

I a 

24 

25 

I 26 

28 

> » 
» 

31 ~ 

I «* 

33 
34 

I 35 
36 
37" 

! 3«': 

39 

40 
41 
42 
43 



45 
(6 
47 



SO 
51 



52 
53 
54 
55 



IF LISTING THEN INK I T C VAL, NUMBER ' T YH » ) / 
U0C5»L0C+NUMBER' 



-&WC- 



% 
JL 



% 
X 



ELSE L0C*sL0C+NUM8EHj 
FMTTmNST a \T PMlTS a I I T F KAl G F Sl / f SZ MyTH TH F \UU1E m 



00639000 
00640000 
00641QQQ 



AT THE PRESENT POilTlUN Of LOG 



00642000 

00643000 
0Q644Q00 



PROCED U RE" E MITCCN .S T A NT C N >- S Z » 



VALUE N»SZ; 

REAL N*SZ; 
IF N < THEN 



00645000 

00646000 
00647Q0Q 



ELSE 



% 

% 

-X- 



EMIT(CREALCNCT BOULEANC N ) > . L 1 6 J 32 3 + 1 )> SZ, Li TPR I NT ) 
E M I TCN^SZ , ,UITPRINT)J 



00646000 
00649000 
006bOQOO 



00651000 

00652000 
006 53 000 



PUNCHER PUNCHES A BCL DECK 
BCL CARD LOAD E R . 



IN THE FORM EXPECTED BY THE 



00654000 
00655000 
00656000 



PROCEDURE 
BE GI N 



puncher; 



FILE PUNCH (2*10); 

SAVE ARRAY HO i 593* [Of 79 3 > TEMP [0 J 4 3 ; 

INTEGER OP* IP*SCWATCH»HC» IPL; 



00657000 
00658000 
QG C OVCCC 



REAL BCC* 
BOOLEAN TOG* 
LABEL ENTR; 



00660000 
00661000 
00662000 



ARRAY PUNCHCCDECOm; 
RTRfFAM gftQ£E-QURE IRAUSEEMJL* &n » n» pp . M ) 



00663000 
00664000 
00 6 65000 



VALUE 
BEGIN 



SD*D0*N. 

s i 1 » s ; 



00666000 
00667000 
00666000 



SKIP SD 

01 j*d; 
skip no 



sb; 



-DB- 



0066900Q 
00670000 
00671000 



00672000 
00673000 
nn67annn 



N(6( IF SB THEN OS:* 1 SET ELSE DS;* 1 HESET; SKIP 1 SB;)n; 



end; 



STREAM PRnr.FDLIRF nNPAEKtS.PW 



006^5000 
00676000 
006^000 



BEGIN 



00678000 
00679000 
Q 0680QQ Q 



sitss; 
di»"d; 



00681000 

00682000 

..00683000 



2(4Q( OS** 7 LIT "Q M ; 
3flF SR THFM nST 



0S«" 3 reset; 
1 SET FLSF nS«« 



1 RFSFTl 



00684000 
00685000 
0686000 



skip 1 sb; >; j; ); 



e nd. 



X 
X 



00687000 
00688000 

oo6a9ooo 



STRFAM PROrFOURF PACK(Ali 



BEGIN 



00690000 
00691000 
00692000 



si;»a; 

O H»» AJL 



2(40(Si»»si + 7; ds»s i chr;);>; 



00693000 
00694000 
0Q69500 Q 



end; 



00696000 

00697000 
00 6 98 000 



1 
■"■1 



..ii 

n, 

4.< 

■ 
4:i 

14 

4f| 
1(1 

47M 

48 
Ii 
50 

52 
53 

54 



h 



10 

11 

12 
13 



15 
16 

>» 

18 

19 

| 20 
21 
22 

| 23 
24 
25 

\ 26 
27 
28 

I » 
30 



31 

| 32 

33 

34 

l 35 







36 

37 ~ 
I 38 
39 
40 
41 
42 



•3 



JO 
JO 



45 

46 

I" 
18 

49 

(50 

51 

52 

53 

54 



55 

1 56 



K. 



FILL PUNCHCODEC*] WITH " "* "d M * "2", OCT 14* "0"/ " Y"* »S"* "X"; 
CODE. AREAS := 0; 

rnnF.ARPA.sT7F t= c? 



SE|RCH(CODE#It*]); 
READCCOOE [ 1 1 5 3 3 *2, It * ] ) ; 
1 ASTCnnFINX t* I c 3 i 



RECORDS 1= lilli 
READ(C0DEL03*0'I[*)); 



IP »* ipl is 360; 
LOC la O; 

fig to entr; - 



DO 
BEGIN 



IF OP < 3 THEN 



BEGIN 



IF OP = THEN 

— era in- 



op »= 3/ 

THANSFtRC LUC* 32* TEMP* 0*2)1 



IF 



£#W- 

IP GEO 
BEGIN 



IPL THIN 



.pr*nfrnnfw*fly.|-f^-i,..)j 

I p : = u > 

If CRC » = H.C + 1) * RECORDS 
IP I 8s LA S TC QU UNx ; 



THEN 



end; 

TRANSFERCIUP DIV 63>ENTIERC(8 x IP) MOD 48), 
TfMPrnP Div 6i.yMTT.rn//n x ggj mod am. 



Ft, sr 



END 



. SCR*TCHI.»HI.IU.30 - 
IP *s IP + SCRATCH; 
np :s hp 4 Scratch: 

LOC *« LOC + scratch; 



op* ipl - IP)); 



ENTRJ 



BEGIN 



unpackctemp*u); 

FflR bCWATT.U := n 



BEGIN 



STEP 1 IJNTII 79 nn. 



BCC ;« REALCNOT BUGLEANCBCC ) 
B0m.EANfnfSfiRATCHT7>y 



E«V 



QC 7 . 3 



ocscratc.h] :* pun.chcooecqtscratch]]; 
end; 

!s PUNCHCriDElBCCraSUn; 



PACK CO) I 

WRITECPUNCH*10*0C*)5; 
RC.C 1; QP u n; 



FNni 



FOR SCRATCH Is 
FOR ScRATCH.«»0 



00699000 
00700000 
00 701000 



00 ft) 2 000 
00703000 

00704000 



00705000 
00706000 
007(,)7000 



00708000 
00709000 
00710000 



00711000 
00712000 
Q07 13 QQ Q 



00714000 
00715000 
007 1 600 



00717000 
00718000 

00719000 



00720000 
00721000 
00722000 



00723000 
00724000 
07 ^ 5000 



00726000 
00727000 
00728000 



00729000 
00730000 
Q07J1000 



007 32000 
00733000 
on73flnnn 



007 35000 
00736000 
00737000 



00738000 
00739000 
0074QQ00 



00741000 
00742000 
0Q743Q QQ, 



STEP 1 UNTIL. 79 DO QCSCRATCH] i" s 0* 
STEP 1 UNTIL 4 DO TEMP [ScRAl CH3 ** o; 



00744000 
00745000 
00746nnn 



END UNTIL RC » RECOROS ANO If. G£« IPL; 
IF TOG i m NOT TOG THEN GO TQ ENTR; 



00747000 
00748000 
007,49000. 



00750000 
00751000 
00752000 



END OF PUNCHER; 



X 
X 

JL 



RE FORMATS THE OPCODE F0« AN OPERATOR OF TYPE OP USING 
REGISTERS A AND B AS SOURCE AND DESTINATION, 



00753000 
00754000 
00755000 



00756000 
00757000 
00758000 



I 

t 
i 
« 



IsbI 

in 



HI 
I. .' 

4.1 

44 ' 

45 

4iS 

4 7 

4S 

4'» 

SO 

51 

53 
14 



h 



I 2 
3 
4 

5 
6 
V 
8 
9 
10 
11 
12 
13 
14 
15 



16 

I ,7 
18 

19 

20 

21 



CO 



22 

I U 
24 

25 

I »: 
27 
28 

29 
30 

31 ~ 

32 

33 

34 

35 



• 
• 

• 



36 

37 " 

38 

39 

40 

41 

42 

43 



45 
46 
47 
48 
49 
I 50 
51 
52 
53 
54 
55 
56 



real procedure rec0p>a>8)j 
value op*a»b; 

REA L QP» AjB ; 



00759000 
00700000 
00/ 61 00 



BEGIN 



TF A. TYPE i TYPERFfiTSTEH THEN 



BEGIN 



00?62000 

00763000 
00764Q0Q 



FLAG164); 

a. -o ; 



IF B 



end; 

.TYPE t 
BEGIN 



00765000 
00766000 
OQ7 6 7000 



TYPEREGISTER THEN 



-EMU- 



FLAG c 64); 
b: = o; 



00768000 
00769000 
00 7 70000 



END 



RE»=B 

QF re; 



& A[4C:4J K 0PCJ2*a3i 



00771000 
00772000 
00 7 7 3000 



% 

% 

JL 



DREDGER ACCEPTS A DESCK I PTQRC DE ) AND A TYPECFORM) AND 
RETURNS AN ADDRESS. 



00774000 

00775000 
00776000 



REAL PROCEDURE DREDGER(DE,FURH) ; 
VALUE de#form; 
REAL DC-* FOR Mi — - 



00777000 
00778000 

00779000 



00780000 
00781000 
00782000 



CASE FORM 
BEGIN 



OF 



00783000 
00784000 
00/85000 



IF DEtTYPE * THEN DREDGER » *L I T ( DE >• [ 36 » 12 3 

Ft, SE 



IF DE.TYPE * TYPELABL THEN 

. IF DE. ADDRESS « L.ABLS E FORM I *DE . LABlI NDEX ]. ADDRESS THEN 

B E G I N , 



O07d6O0O 
00787000 
00788000 



IF DE, SECTOR LSS 4 THEN 

DREOGERl*(lF DE. ADDRESS 



00789000 
00790000 

007^1000 



DE, C 36 : 12, 



* LABLUSECF0RM3. 
PHYSTT.ALAnnRESS 



THFN 



00792000 
00793000 
00794Q0O 



EL S F 



ELSE (LABLUSECFORM], 00795000 
PHYSICAL ADDRESS), [36 J 12 J ) 00 796000 

00797000 



IF DE. SECTOR * LDC. [33:53 AND LOC.UQ883 * 255 
DREDGERIS4096 + ( LABLUSECDE .LABLIN0EX3 



Then 



ELSE 
BEGIN 



00798000 
00799000 
008QOCno 



D RE fi F. m«7-1o8 + DE , L ^ftl i Q . i 



END 



enc; 



Ltl*F0RM3 t» LCUF0RM3 & C 1 ) CSECTORUSEMASKS 1 1JJ 



00801000 
00802000 
0080 3000 



ELSE 



00304000 
00805000 
00606000 



BEGIN 



FCHM«=nF . AnDRF . SS -UAR LS rr)F .LA R _ T N pF X 3 P AnpBf--S: 



00807000 
00806000 
00809000 



IF (JUNKl«LABLUS£CDE.LABLlNOEX],PHYSICALADDRESS) 00810000 

+ form < 4096 then ooanooo 

— DR £ DGERl»jaNK*FORM 0* 18 00 



ELSE 

IF (JUNK + F'Q«M)„t33l5j = L0CI33S5] THEN 
DRFnGFK i s 4JJ_6 _ f.JUMK . FflRMl . [ ^g ^ 1Q1 



ELSE 



END 



ELSE FLAG(512); 



00813000 
00814000 
008 15 00 



00816000 
00817000 
00818000 



1? 

4 Ml 



...J 1 ' 'I 

c 

Mi 



.F 






h 



2 
3 

4 

) 5 
6 
7 

I 8 

9 
10 

I " 
12 
13 

I M 
IS 
16 

I 17 
18 
19 

I 2° 
21 
22 



I 23 
24 

2S 

I 26 

27 

28 

I » 

30 

31 " 
I 32 

33 

34 
i 35 

36 

37 ~ 
; 38 



39 
40 

42 
43 

I M 
45 

46 

) « 
48 

49 
I 50 



51 

52 

I 53 

54 



55 

52. 



IF DE.TYPE = USEIT THEN DREDGER ! »DE . I 36 : 1 23 ELSE 

IF DE.TYPE * TYPElAbLERROR THEN FLAGC2) ELSE 

IF B Q QL E A NCD E) THEM FL A C C U E L Sfc n .A G( d )i 



00619000 
00620000 

OO H<il OO O 



IF DE.TYPE * TYPELABL THEN 

IF DC- A DDR E SS b L A B l S C BE , L A RlIND E X J . AD DR ES S THEN 



BEGIN 



00622000 
00823000 
0082,4000 



IF 



DE. SECTOR 
DR E Dfi E H 



LS5 4 THEN 

ts ClF UF, SIZE 



1 . & . S 4 TH E N Qfc , K t S E 



E L SE - 



LABLUSEtDE.LABLINDEX], 
PHYSICALADDRESS>.C36I12] 



00625000 
00626000 
UQ82 7QQQ 



IF OE. SECTOR = L0C,L33:5] AND LQC.C4Q.8] t 255 THEN 
DREDGER»=4QV6 + CL ABLU3E IDE.LABLINDEX3 

. PHYSi CALAi3 JH fc. 551 , C 36 H 0J 



00828000 
00829000 
00830000 



ELSE 
BEGIN 



00831000 
00832000 
08 3 300 



riREnGFR La 71 Aft ♦ nf.rimiftii 



ELSE 



END 
BEGIN 



-E4UJX 



LU*DE.L*BLiNDEX3 S? L 1 1' OE.LABLIN0EX3 
(U.[SECT.URUSEMASKSi47.ll3i 



00834000 
00835000 
008.16000 



00837000 
00838000 
00839000 



00840000 
00841000 
008 4 2000 



F CRM I bdE.AOQRESS-L ABES tUE.L ABU INDEX]. ADDS ESSI 00843000 
IF C JUNK! sLABLuSEtDE.L ABL INDEX], PHYSICAL ADDRESS) 008*4 4000 

* FQRty < / « 0W6 TH E N . 00 *45000 

DREDGER**JUNK+FQRM 
ELSE 
IF (JUNK * FORM) . 1, 33*^3 * t , a C » C3 3 » 5 3 



DREDGER** 40V6 + CJUNK 
ELSE BEGIN II t= PREClSiUNi 
IIREDGLR ;= 71flfl + 



THEN 



00846000 

00847000 
00848000 



• FORM), I 38 » 103 

PRECISION «= 2; 
LlTfDF. ADDRESS); 



ELSE 



END 



PRECISION »« II* 



008^9000 
00650000 



end; 



IF DE.TYPE * TYPELABLERROR THEN F LAG(2) : ELSE 
IF BOQLEANCDE) ThFN FLAgCD ELSt FLAGC4).; 



00652000 
00853000 
00854000 



00855000 
00856000 
00857000 



IF OE.TYPE * TYPELABL THEN 00858000 

0REDGER«*<LA8LUSEtDEtLABLlNDEX3,PHYSlCALADDRESS) + 00859000 

fIF n£. ADDRESS ■ ■> ARI-BCnr. I ABi iNnrxi. ADDRESS th f n n nnRtnnnn 



ELSE 

TF OF t TYPE 



else de. address - lablS£de.lablinoexi. address) 

■ THEN 0RFDGFi-i;«DE fl 3 6n uJ FL S F 



IF DE.TYPE * TYPELABLERROR T«EN FtAG<2) ELSE 
IF BOQLEANCDE) THEN FLAGCl) ELSE FLAGC4); 



00861000 
00862000 
QQ863QQQ 



IF DE.TYPE * TYPELABL TWEN 
IF DE. SECTOR « THEN 
BEG I N 



00864000 
00865000 
008 6 ft OOP 



00867000 
00868000 
00869000 



ELSE 



ELSE 



END 
FLAGC512) 



0REDGER»*6144 ♦ (LABlUSECDE.LABL INDEX 3 00870000 

.CHYSlCALADDRESS)tC38«l03 ♦ 00871000 

— DE»ADQ RES5.« I ABl 3C0F . I.ARI INDEX] . AnnwESS J008720Q0 



IF DE.TYPE « THEN 
DRE06ER»*6144 + 

ei.se 



00873000 
00874000 
00675000 



DE.C38I103 



00876000 
00877000 
00 878 000 






44 
4ti| 

| .VI ' 
48| 

■in 
SO 



'A 



h 



16 
17 

18 



19 

20 



22 



24 



26 



27 
28 
29 



32 



34 
35 



36 

37* 



39 

40 



41 
42 
43 ~ 



45 



47 
48 



49 
50 



54 
55 



FLAG(32); 



IF BE , TYPE = TYP L L A H L TH E N 



IF DE. SECTOR » THEN 

DREDGER S» 7168 + (L.ABLUSE CDE .LABL INDEX 3 
r PnYSrrfll ADDBFSS^f ; JfiMQI + 



ooa?9ooo 
ooaeoooo 

^ 81 00 



DE. ADDRESS - LABlSC DE . LABLI NDEX3 . ADDRESS 

else if de. sector = loc. c 33*5 j and loc.uo.83 * 255 then 

___ D REDGER : = ■aiao t C LA H l U jE C D E.L A 8HN UE X 3 



00882000 

00883000 
nnflwanrm 






.PHYSiCALADORESS), 1.38:103 ♦ 

DE. ADDRESS - UABLS tDE .LABLlNDEX ], ADDRESS 



00885000 
00886000 
00887000 



BEGIN 



END 



DREDGER := ?168 + OE.ADDhESS ♦ 2i 
I rfi>uFI»nF.LuHI IMJFX3 ts UJLtMJ * 



f 1 hi i47in; 



ELSE 

TF OF. TYPE 



• THE N 



BEGIN 



IF DE.ADDHESS < i023 THEN 

DREDGER » s 7 1 08 t B E. AD D RESS 



END 



ELSE FLAGC512); 



ELSE 



IF DE.TYPE X TYPELABLERRUR THtN KLAGC2) ELSE 
IF BOQLEANCDE) ThFN F|_AG(1) ElSc FLAGC4); 



% 

JL 



END OF DREDGER. 



% 

% 
JL 



nCS TAKFS THE I ABL 
OF A DESCRIPTOR TO 
EMITTED. 



t AMn returns THf annRpss np 

IT. U NEED BL# A DESCRIPTOR WILL BE 



REAL, PROCEDURE DES(I); 

VALUE i; 
aEJU U 



BEGIN 



IF I 



ELSE 



.TYPE * 

DES t s l 



C THEN 

I (USflUTYEE 



IF 



I. TYPE i 

BEGIN 



TYPELABL then 



D£S«»I & (USEIT)TYPE; 
LABLSCI.LABLIN0EXJ,CSIZ£S:1 3««i; 



% 
JL 



END OF DES; 



end; 



% 
% 
HFfr'lNE 



DECLARATIONS FOR OPERATORS FOLLOW 



CHI) 
E2(I) 
E3C I ) 



HLT 
CST 

s ov 



EMITC!#1>UPPRINT>#* 
EMIT(I#2#0PPRINT)«* 
EMM(I»3»QPPRTMT)ti 



SOVN 
SOD 

snnN 



EMITC0,1#2)#, 
EMIT(1*1*2)*# 
EMITC?>1 t2)<» 



EMlT(3#i/2)#> 
IMIT(«#1#2)## 
FMTT/5. 1«2H. 



00888000 
00889000 
0Q890Q00 



00891000 
00892000 
00893000 



00894000 
00895000 
nnagannn 



00897000 
00898000 
0Q899Q00 



00900000 
00901000 
00902000 



00903000 
00904000 
Q09Q5000 



00906000 
00907000 
00908000 



00909000 
00910000 
0091 1000 



0O912000 
00913000 
00914000 



00915000 
00916000 
00917000 



00918000 
00919000 
0Q920Q00 



00921000 
00922000 
092 3 000 



00924000 

00925000 

-OQ9?ft00Q 



00927000 
00928000 
00929000 



00930000 
00931000 
00932000 



00933000 
00934000 
00935000 



00936000 
00937000 
00938000 



hi \ 

|4U 



Si 
\h'M 
jhfi 

5/1 



h- 



10 

11 

12 
13 
14 
16 
16 
17 
18 
19 

i 20 
21 
22 
23 
24 
26 

> 26 
27 
26 
29 
30 



31 

I » 
33 
34 

I M 
36 

37* 

I M 
39 

40 

I *' 
42 



45 

I " 
«8 

49 

\ » 
51 

52 

) 53 
54 
55 

I 56 



SAN 

SANN 
SAZ 



SAZN 

sxz 

SXZN 



E M 1 I C * 1 * 2 ) * » 
EMIT(7»1»2)## 
EMIT ( 8 ' > .» « ?}.,»# 



EMIT(«»1*2>## 
EMlT(10»i'2>*> 

EMlf(ll».»3)ff- 



CIA 
CMA 
IAR 



s EMITC12' J»2)»* 

a EMIH13*i*2)#> 

_s EMITC W» W21l> 



CIA 
SP1 



SP2 



-SJ2J- 



EMIT(15#1»2)»» 

EMIT(16»1*'2)I 
PRECiSlUNJaia* 



EMIT C 17# 1>2)> 

PRECISI0N»=<?#* 
&MITU fl « l *2Jj 



SP4 



SOF 
ROF 

-NOP- 



PRECl84QN!*f*> 

EMITC19,1>2)> 
0RECIfitfClNHs4t» 



IXO 
SRI 



s EMlTC20*l»2)t# 
* EMITC21»1'2)*' 

-s [MlU^ >l .^t. 



3 
S 



EMIT(23»1*2)#* 

|MlTcM#l#2)#> 
EM IT (25* 1*2) t«. 



RR1 
RR8 



SU8 

RL1 

-RVS- 



EMIT(26# !#?)*# 
EMI TC 27* 1*2)»> 
EMITC 26 * JL»2 3 *» 



EMIT(29*J»2)## 
EMIT(30M'2>#* 



PROCEDURE REGOP(I*J,TYP); 
VAI U£ IfJiTYPi 



REAL I#J#TYPJ 
EMIT(RE(TYP,I*J)*2>2); 



DEFINE 
T C I » J ) 



COMP(I#J) ■ 
INCRCI>J) * 
DECRUfl ) » 



RKfiOPt TtJ»3?)*» 



REGGPU#J#33)#* 
REG0PU,J,3fl)#, 

REGQPC I>J. ,^5jtff 



ANDRCI»J) s 
0RRC.I#J3. =» 

FORUjJ) a. 



ADOR(I»J) 
X 
DEFINE 



REG0PCI>J#36J»* 
REGCPCId J*3?)l* 
REG0PUiJ#36)«* 



a REG0PCI,J,39>#> 



00939000 
00940000 
00 9 410 



Q0942Q00 
00943000 
0Q9 440 0Q 



00945000 
00946000 
00947000 



00948000 
00949000 
00950000 



00951000 
00952000 
OQ 95 3 Q 00 



00954000 
00955000 
00956000 



00957000 
00958000 
Q0959 Q00 



00960000 
00961000 

0Q96200Q 



00963000 
00964000 
00 9 65 000 



00966000 
00967000 
0Q968QQQ 



00969000 
0C970000 
009 71000 



00972000 
00973000 
00 9740 00 



009/5000 
009/6000 

00977000 



00978000 
00979000 

no 9 an o on 



00931000 
00982000 
00983000 



BRMCI ) 
C 5 O.C.I.) 



EMITCCDREDGERCI* ABSaOQRES^ J & 
EMITCCDREDGERCI^ABSADDRESS)) & 



(56)C24t8 J)'3#2)«* 
C57)t2A»83)*3*2)»* 



00984000 
00985000 
0986000 



DEFINE 

STORAGEONLY 
L AS ION L Y 



00987000 
00988000 
QQ989QO0 



E 



JJL>- 



ABSADDRESS 
INDEXED 
INDIRECT 



00990000 
00991000 

0Q99200Q 



2#» 



00993000 
00994000 
00995000 



PROCEDURE ADDRESSREF(I»TYP)> 

•■„■ -- " VALU E I'TYP* 



00996000 

00997000 
0Q9V8O00 



|"l 



12 
13 
14 
15 
16 
17 
18 
19 
20 
21 



22 

i » 

24 

25 

i » 

28 

, » 
30 

31 "' 
32 
33 



34 
35 
36 
37 " 



38 
39 



40 

41 



42 
43 
, 44 
45 
46 
47 
«8 



49 
50 



51 

52 

! 53 

54 

55 



REAL I,TYP) 
EMITUDREDGER( I , STORAGEQNL Y ) 



8. TYP[32:3]),2,2); 



prucedure gotocij; 
value 1; 

real 1; 



EMIT((DREDGER(I#LABi_ONLY) & ( J ) [ 32 : 3 J ) # 2» 2 ) > 
PRUCEOURF INDADDHCSSf ItTYP); 



VALUE I»TYP; 
REAL I,TYP; 
EM IT( ( DREDGER ( I * INDIRECT) 



% 

PROCEDURE INXADDRESbC J^TYP); 

— __ , V A L U E I«T*P; 

REAL I,TYP; 
EMITUDREDGERU, INDEXED) 



I TYP t 3ai3l)*a * 2 4J- 



& TYP[32»3]),2,2j; 



DEFINE 
% 

OESCCI > 



LOAD(I) 
ST(I) 

ADD(l) 



ADDRbS S R E FCntSU j.» 2 Xt 



SUBCI) 
ANDMCI) 



ADDRESSREF(I,2)#, 
ADDRESSREF(I#3)jK, 
ADORE, SSREFC I»4)tf« 



ADDRESSREFC I#t>)#» 
ADDKESSREF(I>6)*, 



LOADX(I) 

STXCI) 

ADDXCI) 



SUBXCI) 
ANDXCI) 
GOTflXf f . 



INX»DDRESS(I#2)## 
INXADDHESS(i>3)#* 
INXAf)QRESsn>& ,*> 



INXADDRESSCI#53#* 
INXADDRESS(I».6)*# 

INXAODHESSC l*7)tt 



LOADINDCIJ 
STTNOf T) 



ADDINDCI) 
SUBINDCI) 
ANniND( I ) 



INDADDRESS(I#2)** 
IMnAhnRF SSf T,3)U* 



GOTOINOCI) 
% ■' 
nFFTNE 



lNDAUDREi)5( I>4)#, 
INDADDRESo(I*b)## 
INDAOHRFSSC J9p)9t.. 



INDADDRES3(1#7)#; 



TH 
TH1 
-XH2- 



TH3 

MIN 
CIS 



= I22aa*> 

s l2544?> 
i,2tt(H)tt 



CIM 
SIE 
SSH 



13056*, 

EMITCTH#2*2)#> 

FMTTfTHl»2.g)<. 



9 
s 



SSi 
SS2 

SS3 



EMlTcTHl+32>2*2)#* 
EMITCTH2#8#2.)## 
FMIT( rH2+l1g*a.?)t. 



-JL 



IBD 
IBE 



s 
s 



EMlT(TH2*i2*2»2)#* 
EMIT(TH2*64>2#2)## 
TMTTf Tug + lgfl.gjin** 
EMIT(TH3#?,2)## 

EMlT(TH3+32#a*2J#l 



DEFINE 

BTO<I) 
BTKH 



» EMIHTH + 1»2#2)#, 
* £MIT(TH1+I»2»?)I* 



0099900G 

01000000 

0^001000 



01002000 
01003000 
01004000 



OlOObOOC 
010U6000 
1007 



01008000 
01009000 
QlOjOOOQ 



oionooo 
01012000 

0101 3 00 



01014000 

01015000 
01016000 



01017000 
01018000 
10 1 9000 



01020000 

01021000 

-010*2000 



01023000 
01024.000 
010*5000 



01026000 
01027000 
ni02ft000 



01029000 
01030000 
010310QQ 



01032000 

01033000 
moaannn 



01035000 
01036000 
01037000 



01038000 
01039000 
01040000 



01041000 
01042000 
01043000 



01044000 
01045000 
01046QQ0 



01047000 
01048000 
Q10490QQ 



0J050000 
01051000 
01 5200 



01053000 
01054000 
010^5000 



01056000 
01057000 

0lQ5fl000 



4. | 

I 47 

I'l-tll 



s;- 






h- 



I 2 
3 

4 

I 5 

6 

7 
1.6 

9 

10 

I " 

12 

13 
I M 

15 

16 

I " 
18 

19 

I 20 
21 
22 

i a 

24 
25 
I 26 
27 
28 

I a 

30 

31 

I « 
33 

34 
| 35 
36 
37 ~ 

I M 
39 

40 

I «' 
42 
43 

I w 

45 
46 

I " 
48 

49 

I W 

51 

52 



I 53 

54 



55 
I 56 



SENCI) 
FUNCI) 



EMlT(TH2+I/2/2)*/ 
L M I T ( T rl 3 + I » 2 / 2 ) tf / 



DEFINE 



DSHD 
0S2CI ) 



s EMITCtfNSTAN'Tf I^l>#» 
-a EMlTCHNSTAlviTC I»2)*» 



DS3CI ) 

DS4CI) 



EMITC0NSTA.NTCI»3J#» 
EMITC0N5TANTC I/4)#J 



DEFINE 

DACX) 



EMlTC(LA8LUSE[X,l.ABuII*DEX3.H'HYSICAl.ADDRESS)>2»0)»J 



% 

% 

-X. 



% MOVER IS USED FOR MOVING $1 WORDS FROM SOURCE TO OEST« 

* 

S TREAM PROC E DURE MOVER( SOURCE>OEST» S/ ) i 



value sz; 

BEGIN 

LOCAL A? 



on* loc a; sh«loc sz; 
sn«si+6; di»*di + 7; 

Sli 1 chr; 



-0 



SII.*S0URCE; DU=DEST> 

os;= s_ wos; 



A tD Sia 32 flDSi 



END OF MOVERS 



t j S t = i _ h i PS ), 



% 
JL 



% 
JL 



EMITINTERRUP rCODE EMUS THL FIRST IWElVL BYTES OF CODE 
THAT CONTAINS CALLS ON THL" BAJIC INTERRUPT ROUTINES, 



PROCEDURE emitinTerruptcooe; 

RFfiTN 



D 5 2 C L T. 1*63, PHYSicAlA DURESS)/ 

DS2C0); 

NOP? 



nop; 
hlt; 
nop; 



csqcioo); 

nop; 



nop; 

CSQCI023; 



CSQ(I03); 

END OF EMIT INTERRUPT CDDE> 



X 

% 



ONES COUNTS THE NUMBER OF COUNTEM IN THE RIGHT MOST 32 BITS 
OF A VARIABLE. : : ■ . - - 



% 

% 

RFAL STHKAM PRDCEDIJRF C UU NTEMfX )* 



value x; 

BEGIN 

stumc x; 



si :=-!+?; 



SKIP a S B* 



U59000 
060000 
t.6lQ00 



062000 
063000 

ooaooo 



OobOOO 

0o6000 

U»7000 



068000 
069000 
0/00 



0/1000 

072000 
O/ JQ O U 



07*000 
075000 
076000 



0/7000 
078000 
U/9QQQ 



080000 

oaiooo 

082000 



083000 
064000 

o a s ooo 



086000 
087000 
088000 



089000 
090000 
Q9100Q 



092000 
093000 
OV4Q 00 



095000 
096000 
Q970 QQ 



098000 
099000 

100000 



101000 

102000 
1Q30Q0 



104000 
105000 
106000 



107000 
108000 
1 090 00 



110000 

mooo 

112000 



113000 
114000 
115000 



116000 
117000 
118000 



ill 

4' 



N 

2 
3 
4 
5 
6 
7 



9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 ~ 

32 

33 

34 

35 

36 

37 ~ 

38 

39 

40 

41 

42 

43 



45 

46 
47 
W 
49 
50 
51 
52 
53 
54 



32CIF SB THEN TALLY *«TaLLY+1; SKIP 1 SB); 

c0untew5=tally> 
end uf countem; 



% 
% 

JL 



FIRST IS USED TQ FIND THE PRECISION OP A LITERAL. 



INTEGER STREAM PROCEDURE FIRSTCX); 
VALUE x; 

— begin; 



SII*LOC XJ 

sn"Si*7j 

S KIP 2 sb; 



4CIF SB THEN JUMP OUT ELSE T ALL Y ; si ALLY + i; 
FIRSTtsTALLY; 



SKIP 1 SB/); 



XMLL 



% 
JL 



% 

JL 



EMITDESCRIPTinRANDLlTfcRALS EMITS THE LITERALS USEQt AND 



THEN EMITS THE DESCRIPTORS TO STORAGE AREAS AND LABEL 
POINTS. 



procedure dumpthecrud; 

BEGIN 



REAL TEMP2; 
FOR I*= STEP 1 UNTIL LABLkAX tiU 
BEGIN ; 



IF (TEMP2l«LABLARRAY[U),TYPE * TYPELA6L THEN 
BEGIN 
IF TFMP? LSS n OR TFMP2.SI2F fiFQ L THFh 



BEGIN 



LABLS CI], ADDRESS. f =LOC; 
I F L A S TP A SS THEN 



EMITCLABLUSEln.PHYSlCALADDRESS*2#LlTPRINT) 
ELSE L0C»*LOC+2; 

TF TF.MP2 I SS THEN Q_ 



BEGIN 

IF LASTPASS THEN 

FMiTt3g7 6 6 + LABLUSfc- C n .PHYS IC ALA D DRE SSf Q. 



ELSE 

end ; 



2'LITPRINT) 

loc ;» loc + 2; 



END 

ELSE 

LARLSC I ]. ADDRESS tcUBLUSFfU. PHYSIC ALADDRESS; 



eno; 
end of descriptor emitting; 



FOR I»-0 STEP 1 WHILE I < NEKTPUUL DO 

BEGIN 

FMTTVAHi]««PonLrn & ( 4 -f i rst ( puol adore ssuj.prec is housed n size; a 



POOLADORESSCn»*P0OLADDRESSCl) * LOC ADDRESS « 

LQC,[38.5J SECTOR & EMlTVALt 13 ,S IZE SIZE; 
IF POO L EU < THEN 



EMJTVALCI3 »« EMiTVALtlJ .« 

(REALCNUT BUULEANCEMITVALCI J)).C16,32J + 1) 

C I6 . 32 3; a 



EMITCEMITVALm*EMlTVALU3«SIZE#LlTPRlNT>; 
END OF LITERAL EMITTING; 



19000 
20000 
*4-&O0- 



22000 
23000 

?4nnn 



25000 
26000 
* 7Q Q0 



28000 
29000 
30000 



31000 

32000 
3 3000 



3400C 
35000 
36000 



37000 

36000 
3 900Q 



40000 
41000 
4P000 



43000 
44000 
45000 



46000 
47000 
46000 



49000 
50000 
5 10 00 



52000 
53000 
S400Q 



5500C 
56000 
57Q QQ 



58000 
59000 
60000 



61000 
62000 
63000 



64000 
65000 
66000 



67000 
68000 
69000 



70000 
71000 
72000 



73000 
74000 
75000 



76000 
77000 
78000 



ii 



fllll 



,46 

47| 

1 48 

6(1 



!.i3 
54 
5b, 
jj 



>r 



1 

2 
3 
4 
5 
6 
I 
8 
9 
10 
11 
12 



13 
14 
16 



16 

17 



19 

. 20 



21 



i 23 
24 
25 



! 26 
27 
28 
29 



34 

) » 
36 
37 " 

I ■ 
39 
40 

I « 
42 



| «7 
18 



49 
1 50 



52 

| S3 
54 
56 

I 56 



M0VER(LABLUSEC*]»LC2/*J»LA8l«AX+1); 
M0VER(PA_2,+3,PA13>*3,NEXTPUUL+1>; 
IF NOT IASTPASS THEJV EUlti Hid SUP 
UBLUSEUJisOJ 

pun tic c u T -r n— e/>-T-T — nc ..mi 1 irriin 



I UNTIL wAflt.MAX DQ 



01179000 

oiiaoooo 

OllfllOOO 



LABUUS£Cl3fsO> 
END OF FMTT DESCRIPTORS mNI) ITTFRALSJ 



01 132000 
01183000 
04 lflfrOOO 



X 

% 



FEELTHEMADDREiSES EXAMINE!) THE LABIUSE ENTRIES AND 
DETERMINE S ixH l Cri L AHtELS A IN STOR A G E l UCAT ID N S NEFO 



DESCRIPTORS IN THE FIRST PAGE OF MEMORY, 



X 

PR.CFDtIRE FFELTHFMAnnRESSEtit. 



OlldbOOO 

onaoooo 
ou a y ooo 



BEGIN 



01188000 

01169000 
01190000 



FDH IisO STEP 1 UNTIL LABI MAX UP 



oimooo 

01192000 



BEGIN 



IF JUNKlJsCUuNTEMC(JUNK* 
TUFM fl SF 



iLABLUSECin.SECTQRUSEMASK) 



01194000 
»0U95000 

01196000 



BEGIN 

IF JUNK * LC2*I3 THEN LASTPASiJsTRUE; 

IF JUNK1 s 1 OR jUNK.PHr.ICALADOHESS < 



4Q96 THEN 



01197000 
01198000 
Q U99Qq Q 



LABLARRAYcni.LABLARRAYCU & 01200000 

JUNKCADORESSS+1IPHYSICALADDRESSS:01201000 
PHYSir.ALAflQHFSSI, 3 & 01202000 



JUNK [ SECTORS J PHY 5 I C AL ADDRESS S 8 
StCTOHLJ 



ELSE 



01203000 
01204000 
01 2 0500 Q 



end; 



end; 

IASTPASS :sNOT I, ASTPA.Sai 



LABLARRAY[n«»LABLARRAYCl3 & C 1) C SI ZES» 47 t 1 ] & 01206000 
JUNK [SECTORS ;PHYSICALADDRESSS* 53; 01207000 

_______ . _. _____ ____ 0l?Qfi0Q0 



01209000 
01210000 
OlgllQOO 



END OF FEEL THEM ADDRESSES; 



X 

% 

JL 



01212000 

01213000 
Q1 2HQ QQ 



KICKITALLOFF IS USED FOR otTTING i;P THE IMTlAL CONDITIONS 



IN PREPARATION pOR THE FlhST PASS 



X 
X 
PROOEOURF KICKTTAl.LnFFt 



01215000 
01216000 
01217000 



BEGIN 



01218000 
01219000 
0)220000 



FI RSTPASSt=TR Ut; 



01221000 
012220-00 
0122300Q 



Zla & TYPEREGISTER TYPE' 
A8i 1 8, TYPEREGISTER TYPE; 



CS* 2 & TYPEREGISTER TYPE; 
XJ« .3 & TYPEREGISTER TYPE; 
P»* 4 & TYPEREGISTER TYPE* 



01224000 
01225000 
01226000 



8»* 5 & TYPEREGISTER TYPE; 
0«» 6 & TVPERFGISTER TYPE* 
Y>» 7 & TYPFREGTSTE R TY PFi 



01227000 
01228000 
01229000 



_JL 



Q»" 8 & TYPEREGISTER TYPE; 
F?= 9 & TYPEREGISTER TYPE* 



01230000 
01231000 
01232000 



LOCJ* I TYPELABL TYPE & U)SIZE; 
FOR U*0 STEP 1 UNTIL LABlMAx DO 



01233000 
01234000 
01235000 



01236000 
01237000 
012 3J QQQ 



,211 
","-1 



.-.3, 



IfJ 
17 ' 

*a 

ill 

•J'l 

ul 

c .l 

XI 

•it 

-A 

■i 
I 

t ': 



h- 



1 

2 
3 
4 
5 
6 
I 
8 
9 
10 
11 
12 



16 
17 



18 



19 
20 
21 



22 
23 
24 
25 
26 
27 



28 
29 



90 
31 
12 
33 
34 
35 



36 
37 ' 



38 
39 



40 
41 
42 
43~ 



45 
46 
47 

ta 



49 
50 



52 
53 



54 

55 



LABLARRAYL I] J= 
FILL ASCII!"*] WITH 



4 I LAflLINDEX & T YPEREFERENC ED TYPE' 



48* 49# 50* 5 1* 52* 5 3* 54, 55* 56# 57 #35* 64* 6 3# 58* 62' 3 3' 4 3* 65* 66, 67* 
68* 69 # 70, 7 1*72* 7 3* 46* 9 1> 38, 40, 60, 94* 92* 74* 75* 7 6* 77* 78* 79, 80* 
8 1*8?* 36* A?» AS* ^ * ^9. 3g*3?> 47, A3. Ra,ftS«8(S*fl7* 8ft, 8Q, 90**14.37* 



01239000 

01240000 
01241000 



01242000 
01243000 
01,2 440 00 



94*61*93*34* 126; 
EMITINTERRUPTCQDE. 



X 
JL 



END OF KKKlTALLCFFi 



X 
% 

JL 



FINALLY IS 
CONDITIONS 



USLO FOR SETTING UP THfc IMflL 
NEEDED FOR THE FlNAL PASS. 



PROCEDURE FINALLY; 
BEGIN 

_X 



clearline; 

ERRORNUMBER 
ERRORS la 



=o; 



Q-i- 



LISTING »« NCT COMMON, [46UJ; 
IF LISTING THEN 
IF NOHEADINQ THEN B A TIME E L SE S k I PP aG e; 



IF LISTING THEN 
BEGIN 



FILL TEXTARRAYtQ**] WITH 

"HALT r " 

«sktp nw>." r.\ikf\ .w 



"SKIP IF" 
"SKIP IF" 
"SKIP IF" 



"SKIP IF" 
"CLEAR A" 
«TMf:RrMF« 



"I3VFL = " 



"NOP " 
"SHIFT R" 
"RUTATE " 



"SHIFT L" 
"ROTATE " 
"MOVE 



"INCREME" 
"AND " 
"EXOR « 



"???????" 
"???????" 



"???????" 



" ODD 
" NEG 
" ZEHfl 



" X 
"C 

"NT 



*ERQ' 



AL. 



M F - 
.. p - 

"T RUE 



"T BIT 
"«T ^TT 



"BIT 

"L BIT 

n 



"NT 



"???????" 
"???????" 
"???????" 



"???????" 
???????" 



???????"*"???????" 



"???????"*"???????" 
"???????"»"??????7" 

"BRANCH "*"& MARK " 



"???????"*"???????" 
"?????7?" ,"???????" 



«*******•»,« 



CST "' 

wsktp lyQ"," nuafrj w** 



"SKIP 
"SKIP 
"SKIP 



IF", 

It-"* 
I F " » 



" EVEN 

" POS 



Nniv^Rn'v 



"SKIP IF"," X NONZ"* 
"CQMPLEM"#"ENT AC "' 
"INVFBT "t"Ar. 



« 



<»•**•*** ti f « 



P = 
P = 



"UVFL 5 "■ "FALSE 



"* 
"* 



"increk£»,«nt x "' 
"Shift r*,"t byte "* 
"rotate "«"rt bytf"* 



"SHIFT L"*" OYTE 
"ROTATE "*"L BYTE 
"C Q MP Le. M" » " E NT 






"DECREME M ,"NT 

"OR 

"ADD *' 



"????? V?"* "?.?V ????"# 
"???????","???????"* 
" ???•????», "??y????"* 



"???????","???????"* 

"???????" »"???????"* 

???????", »?9?????"* 



"???? ???"*"??? ????"' 
"?????? ?"*"???????"* 



???????"*"???????"* 
???????"*"???????"# 



012«5000 
01246000 
01^7 000 



012A8000 
01249000 

0l?50Q00 



01251000 
01252Q00 
012^3000 



01254000 
01255000 
01256Q00 



01257000 
01258000 
Q 1259QQ0 - 



01260000 

01260100 

■ 0l?ft( . 200 



01261000 
01261100 
01? 6 1200 



01262000 
01263000 
01264000 



01265000 
01266000 
01267000 



01268000 
01269000 



01271000 
01272000 

oikmooo 



01274000 
01275000 
01276000 



01277000 
01278000 
0127.9000 



01280000 

01281000 

-01282000 



01203000 
01284000 
01285000 



01286000 
01287000 
1 2 68000 



01289000 

01290000 
01291000 



01292000 
01293000 
0-1394000 



-1 
i'ij 



4? 

4t)j 
4'J 
50 

:;, 

62 
■„3 
'>4 
5!i 

r 



h 



i 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 



"LOAD 
"LOAD 
"LOAD 



"'"LOAD 
"'"LOAD 

"» w LQAO 



"LOAD 
"LOAD 
"LnAD 



" . " 



"'"LOAD 
"*"LOAD 
"»"LQAP 



"LOAD "'" "'"LOAD "'" "' 
"LOAD "'" "'"LOAD "'" "' 

"LOAD RE"'"IATlVr "'"LOAD ht"'"LATTVF "' 



"LOAO RE"»"LATlVE "'"LOAD KE","LATIVE n * 
"LOAD IN"»"D REL "'"LOAD IN"»"0 R£L "' 
"LOAD IN",«Q--RE4- — !?> W LQAD IN" # »n R£L "t 



"LOAD lN","CEXcD "'"LOAD iN"»"OEXLO 
"LOAD IN'VCE.'XED "'"LOAD IN"*"UExED 
"LOAD lN"f"i 



» 



43-0- 



•• . •« 



»"L U AU lN%" i3 



13 

i '«; 

15 
16 

I l7 
18 

19 

I 20 
21 

22 
I 23 

24 

25 
| 26 

27 

28 
I 29 



» 

31 
| 32 

33 

34 
| 35 

36 

37 " 
I M 



39 

♦0 

I « 
42 



45 
46 

I » 
•8 



49 
I 50 



51 
52 

) 53 
54 

55 



"LOAD IN-,«D 

"STORE 

"■STORE 



tt,w 



"*"LU*D iN","D 
«$• 

"'"STORE 



"* "STORE "*" 



"STORE 
"STORE 
"STORE 



"'"STORE 
"'"STORE 
w f W STBRF 






♦♦STORE 
"STORE 

"STORE 



", "STORE 
"'"STORE 
"» "STORE 



.-.» . 



M . ♦♦ 



"STORE R"#"ELATIVE' , >"ST0RE K», "Et_A 1 I VE"' 
"STORE R"*"ELATIVE"'"ST0HE K"# "EL AT I V L" » 
"ST O RE I %"NO HEL " ' " S TOR E \» , "\Q RE L "» 



"STORE I H '"KD REL "'"STORE I M *"ND REL "* 
"STORE IV'NOEXED "'"STORE i M >"NDExE0 ** 
"■STORE I " * " N p £ X £ Q * t " S T ORE I " » a N DE X E " > 



"STORE I"* "NO 
"STORE I'S"NO 



"'"STORE l"#"N0 
"'"STORE I"* "NO C 



FILL TEXTARRAYC1**] WITH 



"ADD 
"ADD 



"#"AOD 
" » " ADD 



■w * « 



"ADD 
"ADD 
"ADD 



"»"ADU 
"#"AOD 
"»"AUQ 



"ADO 
"ADD 
"ADD 



n t« 



"»"ADO 
"'"ADD 
"»"AOtr 



«»« 



"ADD REL"#"ATIVE 
"ADD REL"»"ATIVE 

RE L 



" A DD IN D">" 



"ADD JnD"#" REL 

"ADD IND","EXED 
"ADD THD».»»FyFD 



"'"ADD RtL"'"ATlVE 
"*"ADD RLL»,"ATIVE 
'f"ADD I Wr" R EL 



"ADD IND"'" 
"ADD IND"," C 

"SUB 



M *"ADD IND*'»« R£t 

"*"ADD INO M #"EXEO 
"."ADD tN-Dw.wEYPn- 



"# 
"' 



ft . II 



"SUB 
"SUB 
"SUB 



"'"ADD Ii^U"'" 
"'"ADD HmD"'" 
"f"SuB "t " 



11 



"'"SuB 
"#"SuB 
"»"SuB 



»» 



"SUB 
"SUB 

"SUB 



If « H 



"'••sue 

"'"SUB 
"'"SUi3 



t» 



"SUB "#" 

"SUB REL"'"ATIVE 
"SUB RrL"'"ATIV£ 



"»"SUB "'" 

"*«Su8 REL"'"ATIVE 
"'"SUB REL"'"ATIVE 



"# 
"' 



01295000 
01296000 
0129/000. 



01298000 
01299000 
OllOQOQO 



01301000 
01302000 
Q . 3Q 3 Q0Q . 



01304000 
01305000 
01 ■* 06 000 



01307000 
01308000 
01 3 0900 Q 



01310000 
01311000 

ornaooo 



01313000 
01314000 

01 a 1 *00 



01316000 
01317000 
1 31 6000 



0131900C 

01320000 
Q 1 32 1 Q C 



01322000 

01323000 
01320000 



01325000 

01326Q00 
01 3 27Q QQ 



01326000 
01329000 

Ol.i'itOOOO 



01331000 
013J2000 
0133 3000 



01334OO0 
01335000 
01336000 



01337000 
01338000 
Q 1 339QQQ 



01340000 
01341000 
01 342 000 



01343000 
01344000 
01345000 



01346000 
01347000 

Q1348 Q0Q 



01349000 
01350000 
01351000 



01352000 
01353000 
Pt 354 QQq 



1 

it* 



./'■" 
*:t 

44 

45 

16 

47 ' 
IB 

V) 
")0 
51 
52 
53 
54 

!•.(• 



h- 



"SUB IND" 
"SUB IND" 
"SUB INO" 



REL 

REL 



' E XE 



"♦"SuB l\\Q»," REu 
"»".SU6 I iM U »• * *' REL 

"»"Suti (KO"i"F,; 



JCE4J- 



10 
11 

12 
13 
14 



15 
16 
17 
18 
19 
20 
21 
22 
23 
24 



"SUB INO" 
"SUB INO" 
"SllR IND" 



"EXED "♦"SyB INi)"»"EXE[) 
" "♦"SUB I«D",«. 

.!!_C ShH TND"." n 



"AND 
"AND 
"AND 



" # " A iM 

"/"AND 
"i "AM 



"AND 
"AND 

"AND 



"♦"AND 
"♦"ANO 
"»"ANO 



"AND 
"AND 
"AND R 



£V 



"AND REL" 
"AND IND" 
"AND IND" 



"♦"anO "♦" 

" ♦ " A N " * " 

A TIVE "♦" A N D R£ L " * " A nVE 



"ATIVE 
" REL 
^-R£J 



"♦"AND 
"♦"AND 

"»"ANn 



RtL»,"ATlVt 
INO"»" R£L 



REL 



25 
26 



27 
28 



"AND IND" 

"AND IND" 
"AND IND" 



"EXED 
"EXED 



'♦"AND 
'♦"AND 
'♦"AND Il\ 



IND".»"EXEO 
Ii\D"*"ExEL 

U"»" Q 



"AND IND" 
"GO TO " 
"GO TO !• 



•AND 



IND«," 



"♦"GO TO 
"♦"GO TO 






"GO TO 
"GO TO 

"GO TQ 



"♦"GO TO 
"*"iiU TU 

- "♦"GO TO 



"GO TO 
"GO TO 
"GO m 



"♦"GO TO 

"♦"GO TO 
"♦"GQ TO 



29 
30 
31 
32 



33 
34 
35 
36 



"GO TO R" 

"GO TO R" 
"GO T O I " 



"GO TO I" 
"GO TO I" 
"GO TO I" 



"ELATIVE"*"G0 TO H", "ELA T I VE" 
"ELATIV£"^"G0 TO R'V'ELAUVE" 
"NG R E L " ♦ "G Q TO I " ♦ "N O R EL " 



"ND REL "♦"GO TO I "♦"NO REL 
"NOEXED "♦"60 TO i"V"ND£XED « 
"NHEXED "♦"GO TO I«S«ND£xED " 



37 
38 

39 
40 
41 
42 



43 



45 
46 
»7 
»8 
•9 
; 50 
51 



52 
53 

54 
55 
56 



"GO TO 
"GO TO 



I" 
I" 



"ND "♦"GO TO I"#"ND 
"NO "♦"GU TO W'NU 



FILL TE*TAPRAYt2^*] WITH 



"????<???" 

"spout 



"$$$$$$$" 

"$*$$$$*" 

"OUTPUT " 



"OUTPUT " 

"OUTPUT " 

» NORM a i » 



"OUTPUT " 
"SPECIAL" 
"OUTPUT " 



"INPUT S" 
"$$i$$$$« 
"»lltss»" 



"INPUT C" 
"INPUT S" 
"NEIRMAL " 



"S$$$$S$" 
"SSSSSSS" 

"CW SFN w 



"???????"♦"???????"♦ 

JL 



"$$S$$$S"^"S$$$$iS", 
"SS$$$$$"^"$S$$S4$'S 



"CP 

tip T p „, 

wn.l'.TPilT "#"MIC 






HID •» p »• 

" GUI PUT"*". MLC 
"FPRMAT "♦"LP 



"PO "♦" "♦ 
«$$$$$$$"♦ »ss$$s$s», 



"R 

"LC 
"INPUT 



M"»"|,C 



"$$$*$*$»♦ "$*$$$3»$ M / 

"$$$$ss$g^"i$$$sss"* 

"QN LTNE"f" !Le_ 



01355000 
01 3^6000 
Q1 35 700Q 



01358000 

01359000 
01360000 



01 361000 
01362000 
1 ..6 30 00 



01364000 
01365000 
013 66 000 



01367000 
01368000 
01 36 9000 



013/0000 
01371000 
01^72000 



01373000 
013MO0C 
01 ^ / 5 00 



01376000 

01377000 

-01^78000 



013/9000 
01380000 
C l3 clQCC 



01382000 
01383000 
01384000 



01385000 
01366000 
013B7QOO 



01388000 
01389000 
01390000 



01391000 
01392000 
01393 QQ0 



01394000 
01395000 
01396 



01397000 
01398000 

01399000 



01400000 

01401000 

-O1 4Q 2000 



01403000 
01404000 

OHQSnoo 



01406000 
01407000 

Q Ho a o oo 



0H09000 
01410000 

0,1411000 



0H12000 
01413000 
01 4 14000 



21 1 

.1(1 



<tlt| 
4,| 
42 
' 4i 
4 1 
46 

46 

I 
47 

48 

43 

6(1 

51 
52 
53 
54 
5b 
56 



2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
IS 



16 

is 

19 
| 20 

21 

22 
) 23 

24 

25 
| 28 

27 

28 

I »" 
30 

31 ~ 

I iJ 

33 

34 
I 35 



36 

37 " 
1 38 



40 
41 
<2 
43 



45 
46 

I " 
48 



51 



52 

| 53 

54 

55 



"SIC SEN","REC. B I " » " T MODt "* 
"CP SEN "*"READY "*" ", 

"PTP SEN"," MH ST " ^ "UPr* I rui "t 



«» . n 



"MLC SEN"*" 

"L» SEN "*"ERROR "*" 

*SPn .SEN"»"0<JTPI.I T "*"R £AQ Y 



"PTR SEN"*" OAlA R"*"tAUY 
"CR SEN "*"MALFUNC"»"UUN 
"S L C SEN"*" CIJTPUT"," K E- AQY 



w . »f 



"CP SEN ", "READY 

"PTP SEN"," NOT ST"*"GP CODE"* 

"MLC SEN"»"CUTPUT "*"lNTRl.iPT"* 



"LP SEN "*"END OF "*"PAG£ 
"SPO SEN"*" INPUT "*"REAOY 



"CR SE N 



" * "DATA 



RE"*"AQY 



"SLC SEN"*" INPUT !'*"READY 



n r tt 



"SEN CP "*"ERRUR 

"PTP SEN"*" NOT EO"*"! 



"MCL SEN"," IRB OF"*"F 
"LP SEN "*"MCTI0N "*"DUNE 
"PTR SEN"*" NOT ECj"*"T 



!»,« H 



"CR SEN "* W BUSY 

M SLC SEN"*" CAHRIE"*"R ON 



"MLC SEN"*" DATA h"*"EAUY 
"LP SEN "*"PRINT 0"*"UNE 
"PTR SEN" * " NOT EN"*" U M S 6 . 



"SLC SEN"*" CLLAR "*"T0 SEND"* 
«CP SEN "*"BUFFER "*"RE*DY "* 
"PTP SEN"*" READY "»" " P 



"MLC SEN"*" "*" 
"SLC SEN"," INTERL"*"0CK 
"PTP SEN" ■" DATA N"i"£LOEU 



"MLC SEN"*" 

"LP SEN "* "READY 

"SLC SFN"," HTMfi 



»i . *i 



*• . »« 



** 



H . tt 



"MLC SE 1 ^"*" "» 

"LP SEN "*"BLFFER ", "READY 

"SI C SFN"," rnD PA"*"rtITV 



>MLC S£N"*" 

"ENBL SP"*"0 OUTPT"*" INTHPT"* 

"START P"*"T READE"*"K "* 



"ENBL CR"*" INTRUP ,, *"TS 



"ENBL 



SL"*"C REC. 
"*"A 



"BIT 



iJlX 



»»p 
"0 



'*"B 
**"F 



*»*«0 



>"Y 



n >QfOtOt>Q*Q*Ql>0,Q»Q*Q* 



•*******••, " *******! 



• *******' 






k« ........ u 



0*0*0*0*0* 0*0*0* 0*0*0* 
i NFXT FNTRY Jfi 241 



FILL TEXTARRAY[3**3 WIlH 
"t-'MHI fP"." TNTRHP","TS 

"SET PTP"*" BINARY"*" MODE 
"ENBL ML"*"C INTRU"*"PTS 
^FNftl lP"»" T MTR "P"« M TS 



01415000 
01416000 
OH 17000 



01418000 
OH 19000 
014*0000. 



01421000 
01422000 
QH <3 QQ 



01424000 
01425000 
014?6QQ0 



01427000 
01428000 
014 2 9QQ Q 



01430000 
01*31000 
014 32000 



01433000 
01*34000 
01*35000 



01436000 
01437000 
01438000 



01439000 
01440000 
Q140100 C 



01442000 
01443000 
01444QQ0 



0144500C 
01446000 
01447Q00 



01448000 
01449000 
01450000 



01451000 
01452000 
01453000 



01454000 
01455000 
01456000 



01457000 
01458000 
01459000 



01460000 
01461000 
01462000 



01463000 
01464000 
01465000 



01*66000 
01467000 
14 68000 



01469000 
01470000 
01471000 



01472000 
01473000 
014740 00 






43 

41 

■IS 
»('■ 

l7 l 
1H| 

1'.i 

50 



I ■:» 



h- 



2 

3 

4 

5 

6 

I 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 " 

38 

39 

40 

41 

42 

43 



45 
46 
47 
48 



49 
50 
51 
52 



53 
54 



55 
56 



"RESET S" 

"$$$$$$*" 

.i i ijp.ji j i 3> 3* Jb J i 



"INITUT" 
"ENBL SL" 

"DSBL CP" 



"SET PTP" 
"DSBL ML" 
"DSRL LP" 



"START S" 
"$I$$$$S" 

" s t t s ss *" 



"DSBL CR" 
"DSBL SL" 
"SEUT C" 



"ENBL PT" 
"SET MLC" 
"INITIAL" 



"ENBL SP" 
"SELECT " 
" I N I T I AL" 



"SLC DAT" 
"SELECT « 
*HSR| PT" 



"MLC REA" 
"ENBL PT" 
"SLC REQ" 



"INITIAT" 
"PTP FUN" 



"$$$$$$$" 

"Si$$S$S" 
"SIC RES" 



"INITIAT" 
"START P" 
"MLC l„TN" 



"READ SP" 
"$$$$$$$" 

"ftlUiU*" 



"ENBL SL" 
"STOP PT" 
"MLC CPU" 



"PTR REW" 
"INITIAL" 
"RESET P" 



"MLC FUN" 
"MODIFY " 
"rflPY im»» 



"COPY IN" 
"SKIP IF" 
"SK IP PQ " 



"SKIP SE" 
"SKIP $E« 
"SKIP SE" 



"DISABLE" 
"ENABLE " 
0»0» Q * Q *0 



"MULTIPL" 
"UNDEFIN" 

"LABEL L" 



"PC CONT" 
"!$$*$$*" 



"E CARD " 
"C REC. " 
" INTRUP" 



" ALPHA " 
"C INTRU" 
" INTRUP" 



"PC READ" 
"$$S$$S$" 



" INTRUP" 
"C RLC. " 
"P MAIN " 



"P INTRU" 
" IRB OF" 
"I2E LP " 



"C INPUT" 

"FTR ALP" 

1 ZE CR 



"A TERM." 
"CP AUX," 
"P INTRU" 



"D * REG" 
"R INTRU" 
" TO SND" 



"E CP CY" 
» » 

" TEM R ES" 



"$S$SSS>" 
"$$$$$$»" 
" TO SEN" 



"E CP CO" 
"T PUNCH" 
"F R ESET" 



"0 ONE C" 

$ S> 3) * 5 $ 3> 

"$vuu&" 



"C REC W" 
" PUNCH " 
" PR IORI" 



"IND " 
"IZE SLC" 
"TP CONT" 



"INTERRU" 
"TERRUPT" 



"TERKUPT" 
" INTERR',' 
" H E R F AI" 



"NSE 1 0" 
"NSE 2 U" 
"NSE 3 0" 



" INTERR" 
"INTERRU" 
Q»Q»U»Qf- 



"Y DEFIN" 
"ED LABE" 
"QCATIQN" 



"RUL " 
!',i*tSft*i>" 



"CYCLE " 
"INTRUPf" 
jiXS » 



"MODE 
"PTS 



"ER ■" 
"$$•*$$$" 

"tssss**" 



"TS " 

"INIRP'IS" 
"STACKLH" 



«ers " 

"CONT RO L" 



" IMTSPT" 

"HA MOOE" 

"CONT Blil." 



" R0Y ON" 
" STACKR" 
*PTS " 



"1ST 
"PTS 
" O N 



EW 



"CLE 

M 

"FT 



"$$$ 

"*4ft 
"D 



$ $ 4 S " 
EJt !1 



"NT«0L 



"HA« 
" S ft $ 



$**S" 



"RD MODE" 



!JUL 



"CO 

"ROL 



NTrtL" 
n 



•»"'■'.«;■■■. 

"PTS 
" ST 



■ » 
ATUS" 



"MA 
"UPT 
"L/H 



SK " 

ENV" 

ALT " 



"FF 
"FF 
"FF 



•upt: 

•PTS 



"EU LABE" 
» CONFLI" 



"L 
»» 



"* 

"# 



475000 
4^6000 
4/700 



4/8000 
479000 

4 6 00 



481000 
482000 
4 83 000 



484000 
485000 
4 86000 



487000 
488000 
4 8 9 Q Q Q 



490000 

491000 
492QQQ 



493000 
494000 
49 50 00 



496000 
497000 
498000 



499000 
500000 
501000 



502000 
503000 
5Q4000 



505000 
506000 
507000 



508000 
509000 
sionon 



511000 
512000 

513000 



514000 
515000 
51600Q 



517000 
518000 
519000 



520000 
521000 
S22000 



523000 
524000 

525000 



526000 
527000 
528000 



529000 
530000 
5 3 10 



5 32000 
5 3 3000 
5 lap 00 






4J 



4--I 
48 

4<j 

I 
SO 

> 

1 62 



> 



# 



"LABEL AS"SSIGNMES M NT EB*OS"R S 

"P0SSIBLS"E 0PERAS"ND SUES" ERROR S 
" I NDEXEDS" CPtR A NS"P E Rft t lHS" , „ !Ijl. 



"ILLEGALS" PEGISTS«ER TYPES" 
"INSUFFI"*"CIENT MS "EMORY S" 
"LITFRALS" PASS MSTSHATCH"." 



S 



"ADDRESSSSPILITYS" E|?ROk 
FUL QuTPHTNiTFRr + l wTfh 



QCTO 162000 ICC020000* 0CT000O0OQ00Q04O0Q5* 
QCT0000000600000000* QCTOO0OOO0OO0OOi)OO7» 
n,a,n, nrTnnnnnninnnnnnnnni (\.c\,n. 



OCTOOOOQOOOCOOOOOH* 0/0,0* 

OC T 000000 1 2000 00000 ,0*0*0* 0*0,0*0/0* 

o « o«o,o,OiO,c»o,Q*ripn*oiOiu»o,o*n . Q,o» o * 



o*o*o*o*o»q*c*o*o»q*o*q»q»o*o»o*o*q»o*o>' 

Fill. TNPniNTFRf»1 WITH -^ 



43 



CO 

CO 

00 



0CT01630013C0H0000* 
QCTOOOQOO0O0C00OQ20* 
0*0*0*0* 



acTO.00OOOl.60Ol7OO.00f0, 



OC TO 164000000000000* 
0*8*0*0*0*0* 0*0*0*0*0*0*0*0*0* 
o,o,o,o,o.o.fi.o,n.n.o.n. 0,0,0.0,0,0,0.0, 



Q*©»0*0'0*Q*0*0*0*Q» 0*0* 0*0*0* 0*0*0*0*0* 
FII.I SFNARRAYT*! wlTH _ 



0CT01650000CC210000* 
OCT0000002600000000* 
0CT00000030C0000O00, 



C T 00002300 240 02 5 * 
23*O*0'O# 

QcToi67oo:uoo^nono* 



QCT00O000 33C0 340 35* OC T.QOO 000 36000 0000 0* 
32*0*0*0* 0CT0000004000000000* 
nCTQl70Q04lCn000OQQ, JCT000QQQ 4 200 4 30 044 * 



OCT 0000004500000000* OCT 00OOQOOOO0OOO0 46* 

0*0*0* 

QCTonnnonfl/nnnnnnnn* OCTnnttflfiflnomi^nftnnQ, 



OCT 0000005 100 '52005 3' 0*44*0*0*0' 

OCT 0000005 500000000* UC TO 17 1000000 560000* 

ncTOOOnooooon^onao, nr.TnouOnoftionnonnno, 



50*0*0*0*0*0* 
OCT0000000000630000* 
■S^fO,0,Q» __ 



OCT 0000006400000000* 



OCT0000006600000000»0* 
0CT0000000000670000*0*56*0*0,0* 
OC TOQ00QO7lC OO0O Q 0f 0* 



OCTOOOOOOOOOO 720000*0* 59*0*0,0*0; 
FILL FUN A RR A YC»3 WITH 



QCTO 172007400 750000* OCT 000000 7600 7 70 10 0* 

OCTOOOOOlOlOOOOOOOO* 06*0*0*0* 

acTnonooi nsnnnonnon. acini ?2cu namnsnnno. 



0CT0O000l0?0llO0Ul» OCT 0000011200000000* 
75#0,0»0, 



0CTO000012001210122, QCT0000012300000000. 
84*0*0,0* 
QCT0O0O0l350nOO0nOO» UCTOOOOO 1260 1270000, 



OCT0000013001310132* OCTOOCOO 13 300000000, 

92*0*0,0,0, 

QCTOOOOOOOOO 1^50000, OCTOOOOOOCOO 1360 137* 



01535000 
01536000 
01^ 3 7 00 



01538000 
01539000 
0l5a0f)00 



01541000 
01542000 
01^43000 



01544000 
01545000 
01546000 



01547000 
01548000 
01549Q0Q 



01550000 
01551000 

0155?Q00 



01553000 
01554000 
01555000 



01556000 
01557000 
Q15580QQ 



01559000 
01560000 
01561000 



01562000 
01563000 
Q15 64Q Q0 



01565000 
01566000 
Q 15 &70 QO 



01568000 
01569000 
01570000 



01571000 
01572000 
Q157300Q 



01574000 
01575000 
ni576nno 



01577000 
015/8000 
01579Q0Q 



Ol58O6O0 
01581000 
01582000 



01583000 

01584000 
01585000 



01566000 
01587000 
01588000 



01589000 

015VOQOQ 
159 J0 0Q 



01592000 
01593000 
1 5940 00 



28 

■uii 



48 

"J 

i 

|S3, 



n 

2 
3 
4 
5 
6 
I 
8 
9 
10 
11 
12 



13 
14 
15 



16 
17 
18 



19 

20 



22 
23 
24 
25 
26 
27 



28 
29 
30 



31 
32 



34 
35 



36 
37 " 



38 
39 
40 
41 
42 



49 
50 



52 
53 



56 



OCT0000014000000000/ 
OCT00000000014 20000/ 
OCTOQOOOl 46000 f'OOOO* 10 3* 0* U*Q.» 0/ 



9 7*0/0/0,0/ 
OC10000000001440145, 
■i, 0/ U i 



0CTO00O0150C15100OO* 
OCTOO000l54CC0000O0f 
nCTOOOOOOOOC 1 560000 t 



OCTOOOOOOC001530000# 
109*0*0,0/0/ 

ncTonnooonnnis7onofit 



OlbVbOOO 
015*6000 
Q15WQ 00 



QCT00000160CC00000C* 113/0/0,0/0; 



01598000 

01599000 
OlftOOQOO 



end; 



x 



END OF FINALLY/ 



01601000 
01601100 
0160 2 000 



X 

% 

JL 



duneihope is calleo at thl end of each pass to determine 

IF ANOTHER PASS oMGUlD BE TAKEN, 



01603000 
01604000 
01605000 



BQULEAN PROCEDURE DONEIHOPE; 

IF LASTPASS THEN CONE IHQPE »»TRUE 
FI.SF : 



01606000 
01607000 
Q1 60 800Q. 



01609000 
01610000 
ni-6 1 man 



BEGIN 



LOCI*0 & TYPELABL 
FE E LTH E M A D O RESS fcS ; 



TYPE & ( I J sue; 



IF LASTPASS THEN FINALLY; 
EMITINTERRUPTCODE/ 
DUMPTHECRUO; 



01612000 
01613000 
Q16 14 Q Q 



01615000 
01616000 
01 61 7000 



-E-WO-, 



% 
% 



FIBSTPASSIaFALbt; 01618000 

DONEIHOPE :* JF PASSfcS is PASSLS + 1 > 7 THEN TRUE ELSE FALSE' 01619000 

: 01 6 19100 



PROCEDURE OETCONFIGURATION; 

BEGIN 

LABFL 7nTfHHZ7fNFXT8 



01620000 
01620002 
01620004 



REAL STREAM PROCEDURE EXAMINCNCR)/ VALLt NCR/ 

BEGIN SI^NCR; DI*L0C EXAMIN; Dl*DI+7; 
DEFINE 



01620006 

01620008 
01620010 



dS«-cwr end; 



3TEPI = 
STEPIT = 
PRUCrnuRE PRINTC A R D/ 



celclass 

llclass 

forward; 



:« T ABLECI :* i + i))#/ 
:= tablE(1 := I + i)#; 



01620012 
01620014 
ni6?0Q16 



01O20016 
01620020 
Q162.QQ22 



proceoure flagcx); value x; 

BEGIN ■ ■ 

Switch format — errf i = — 



real x; 



CX20/ M ILLEGAL DOLLAR OPTION 
(X20/"SEQUENCE ERROR 
CX20»"ILLEGAL CODE 



(X20» W ILLEGAL MEMORY SUE 
(X20, "ILLEGAL CARRIAGE SIZE 
<X20» w PRESeNCE SPECIFICATION 



"*X39/15("X")}/ 
",X39,15C"X M ))/ 
",X^/15(,"X"n.i 



01620026 
0*620028 
01620Q30 



(X20,."LINE SPECIFICATION EXPECTED 

(X20/ ,, N0T IMPLEMENTED 

CX20/"PUNCH SPECIFICATION FXPE CJFO 



M /X39/i5CX M ))# 
",X39»15<»X M ))# 
£XFECT£D w »X39>15C M X w ))t 



01620032 
01620034 
01620036 



<X20*"READER SPECIFICATION EXPECTED 
(X20, "ILLEGAL OPTION 
CX?Qf w NUMBE R E XPFC T EQ 



",X39/15C"X"n* 
"*X39/ 15.C"X">)» 
"/X39»15("X"))i 



01620038 
01620040 
0162QQ42 



(X20» "MISSING 
(X20/ M MISSING 



MEMORY OPTION 
COMMUNICATIONS OPTION 



"/X39/15CX")), 
",X39*15C"X»))# 
».X3Q,13(«X"n, 



01620044 
01620046 
Q162Q048 



M /X39* lb("x")}/ 
",X39»15( M X M )); 



01620050 

01620052 
Q162Q054 



if noheading then datime; 

IF NOT COMMON. t7tl] THEN PRINTCaRdJ 
WRITE(LlNFCnflL] /FRRF [ X])? 



01620055 
01620056 
016?,OQ57 



01620058 
01620060 
Q16 20Q 62 



|4f| 
U 



.b6 

3 



^r 



5 
6 
7 

e 

9 
10 
11 
12 
13 
14 
16 
16 
17 



18 
19 

20 
21 



22 
23 
24 
25 



27 

2B 
, 29 

30 

31 ~ 
| 32 

33 

34 
| 35 

36 

37 ~ 
) 38 

39 

to 

42 

43~ 
I »4 

45 

•« 
I " 

48 

49 

I «> 
51 

52 
| 53 

54 
55 



*t 



errors u errors 
end; 

OWN BOOLFAN SETTING; 



OWN INTEGER XMOOEi 
OWN ARRAY SPEC I At 1 » 3 1 J ; 

OWN ALPH- A ARR A Y A G C L i M [ 1 1 ] ; 



* TELLS DOLL.ARCARO HOW TO SET OPTIONS. 



01620064 
01620066 
01620068 



OWN INTEGER COUNT; 

OWN ALPHA Q; 

OWN ARRAY F I, B A T T a 7 5 3 ? 



01620070 
01620072 
01 62 007 



OwN INUGfcR I* NXTEiBT? 



0«N INTEGER FCR» NCR, LCR>CLCR; 

OWN ARRAY TENte»69j; 

OWN REAL ST 1 » GT2» GT 3 * GT-44 _ 



01620076 
01620078 
Ol6fQOeO 



OWN INTEGER GTIU 
OWN INTEGER RESULT; 
OhN REAL ELCLASS? 



OWN INTEGER LASTUSED; 

CWN ARRAY LINt0»20]; COMMENT PRINT OuTPUT BUILT 

OWN REAL C; . -, : '.■■ 'Li - -:■■■'■■ ■■'::.. I: 



01620082 
01620084 
016 2 008 6 
01620088 
01620090 
162009 2 



IN lin; 



OWN REAL T; 
OWN INTEGER TCOUNT; 
OWN REAL N»K,I 



01620094 
01620096 
01620098 



PROCEDURE SCANNER; FORWARD; 

STREAM PROCEDURE MOVEC W )«WQRDS FROM"CA) ,, TQ"CB); VALUE W; 
REGIN LOCAL T? — - , - ■■ . ■^■. ; ' ' . _ ■ 



01620100 
01620102 
0l6?0l04 



END 



s.i*lqc w; di+ljc t; 
si*a; oi*d; tcds«-32 

move; , 



Sl*S.I + 6; t)I*DI*7j DS<-CHR; 

wub; os*-32 wusj; ds«-w wos; 



01620106 
01620108 
ni620iiC 



REAL STREAM PROCEDURE MKABSCX)* 

BEGIN SI t* x; MKA8S »« Si; ENQ; 
STRF.AM PRnCFnilBF Rl A NiUT T t M . THFUC 3 I W Af ^tjff M I 



01620U2 
016201U 
1 62HH 6 



01620118 
01620120 
0162Q1?2 



BEGIN 

01 1 "THERE; 0SJs8 

end bl anket; ■ 



LIT" "; SI I.*TH£«e; ds:=n wd*; 



REAL STREAM PROCEDURE GQN.VC ACCUM' SKP» N >/ 
Hf r T w 

ST* ACT.UMJ ST»ST»SKPlSl»Sl43;f)l»t nc 



value skp*n; 

cnMV; ns 



01620124 
01620126 

016 2 0128 



*■ N OCT 



01620130 

01620132 
0162013a 



END CONV; 
STREAM PROCEDURE TURNCNOTOpL I GHT C rEO> CORNER ) ; VALUE RED#COrNEr; 
BEGIN DlisCORNER; 5l!=L0C CORNER; Sl; = Sl-i; DbtsCHR END; 



BOOLEAN STREAM PROCEDURE W«ITNEW (NEW* FCR 5; VALUE FcR; 
BEGIN SI«-FCr; IF SCX'*t" THEN TALLY*i; 

oi»nfw; ns»io wps; wRitnew+tally 



016<:0136 

01620138 



end writnew; 
prucedure readacard; forward; 
procedure dollarcard; furwakd; 



01620142 
01620144 
01620146 



01620148 
01620150 
01620152 



procedure scanner; 

BEGIN 
STREAM PROCEDURE SCANC NCR , COUNT V* ACCuM jCQMCQuNT*REsULT*RESULTV> 



C0UNT*ST2*NCHV/ST1); 
VALUE COUNTV» COMCauNl#RE SULT V ST2* NCR V* STl » 
REG1N 



01620154 
01620156 
0168 0156 



01620160 
01620162 
0)620164 



LABEL DEBLANK,NUMBERS^10BLDR,GNC*K/EXIT*FINIS*L#ERROR# 01620166 

COMMENrs#COMf!ANTSj 0l610l68 

pi «• result; m » di + 7; 0162O170 



si «- ncrv; 

CI * Cl+REbULTV; COMMENT SWITCH UN VALUE 
GO TO DFBLANK; COMMENT Q IS INITIAL CODE; 



of result; 



go to idbldr; 
go to finis; 
GO TO nu mb ers; 



COMMENT 1 IS ID CODE; 

COMMENT 2 IS SPECIAL CHARACTER CODE; 

COMMENT 3 IS NUMBER CODE; 



01620172 
01620174 
01620176 



01620178 
01620180 
01 620 182 



4: • 

■18 



>r 



9 

10 

l » 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 



Q 



22 

f M 
24 

25 

\ » 

28 

I ■ 
30 

31 Y 

33 

34 

35 

36 

37 " 

38 

39 

40 



I 41 
42 
43 

. 44 
45 
46 
*7 
W 



«9 
50 



51 
52 
S3 
54 

55 

i 



GO to finis; comment u 

GO TO GNC* COMMENT 5 
Gf] TO COMMAMTSF C OMMENT ft 



BEGIN 



COMMENT 
IF SC»" " THEN 
-K-! SI»SI+1 J 



IS ERROR CODE; 01620184 

IS GET NEXT CHARACTOR CODE; 01620186 
IS CHMMMNT CUOF; 0l62UiHrt 



7 IS 0E8LANK ONLY CODE; 



end; 



IF Sc = M 

GO Til FINIS* 



THEN CO TO K 



01620190 

016*0192 
01620194 



DEBLANKJ IF Sc a " ' 

BEGIN 



' THEN 
L» SI*SI+1> 



01620196 
016*0198 
0l6<i(>20Q 



IF SC ■■ " " THEN GO TO L END; 



GNCI 



IF SC > "0" THEN GO TO NUMBERS; 
IF SC s ALPHA THEN GO TQ IDBLUR; 
OS t- LIT "2"? 



01620202 
01620204 
01620206 



TALLY * i; SI * SI + i; GO TO exit; 
CQMMANTS* IF SC X "J" THEN BEGIN 
COMMENTS I SI » S I * I t ' 



01620208 
01620210 



IF SC 
IF SC 

en u; 



THEN 
THEN 



GO 
GO 



Tu 
Tu 



comments; 
comments; 



01620214 
01620216 
01A20 3 1 B 



I08L0R' 



GO TO FINIS; 
TALLY * 6i; OS ■ *' 
CQMCQUNTC TALLY*- 



01620220 
01620222 
162 22 4 



lit "i»; 

TALI Y + H 



E RROR: 



IF SC s ALPHA THEN S I *• S i + 1 ElSE JUMP OUT 
TALLY ♦• TALLY + li IK SC = ALPhA THEin BEGIN 
DT-DI-U OS * I TT «q n t Gi3 TO EJUJLi 



TO EXIT); 



01620226 
01620228 
016^0230 



END ELSE GO TO EXIT; 
NUMBERS* TALLY «• 63; OS * |_IT n 3«; 
-_, _^_^_ ; — CDMCOUNTf TAUYt TALLY+i; 



01620232 
01620234 
Q1620P36 



exit: 



IF SC <"0"THEN JUMP 

go to error; 

■sti * tally; , 



out to exit; si«-si + n; 



01620238 
01620240 
0162024? 



TALLY * TALLY + COUNTVi *T2 «■ TALLY; 

di «• count; si * loc ^2; ds * wps; 
oi *> a ccum; si »-s i -^j ds » 3 c-hr ; 



01620244 
01620246 
1 6^0 2 4 8 



di «- di+cuuntv; 

SI <- NCRV; 



01620250 
01620252 
016^0254 



jxi. 



FINIS! di «■ ncr; sti 
end of scan; 
: labfi l; 



COMMENT POSITION Ui PAST CHAHACTORS 01620256 

already in the accumulator* if any; 0162025a 

1>T 1 CHK; _ , 1 6 2 02 6 



«• si; si «• loc sti; us *■ wds. 



L* SCANCNCR* COUNT* ACCUMCl], 63-COUNT* RESULT* 
RESULT* COUNT, 0* NCR* ) * 

]F ncr«i,cr then 



01620262 
01620264 



BEGIN REAOACARO; 
GO TQ l; 

end; 



01620268 
01620270 
01620272 



end scanner; 

DEFINE ..WRlTELlNE.a 



01620274 
01620276 
1 62P 278 



IF SlNGLTOG THEN WRITE(L1NE* lb*LIN[* J) 
ELSE WRITE(LlNELOBL3M5*LlNi;»])»J 



STREAM PROCEDURE EDI Tl1WE(LINE*NCR*SYmB0L»QMIT) > 

VALUE »C8*SYM80L»OMlT; 

: REGIN __^ 



01620280 
01620282 
01620284 



DI 
SI 



l* LINE* DS :* 10 LI r 
:= NCR; ds ;= 9 wus; 
i= 4 8 lit " "; 



01620286 
01620288 

Q162Q29Q 



end eoitline; 
procedure printcard; 

, BEGIN 



01620292 

01620294 

0A6 «5 P29, 6 



01620298 

01620300 
1 6 203 2 



-I 
|4j 

■1.1 

4f 

• If 

47| 

1 50 







n 

2 
3 
4 
5 
6 
7 

e 

9 
10 

11 

12 



EDlTLINLClIN»FCH#0#0)i 
IF NUHEABlNG THEN DATIrtt* WRlTELINE; 
_&JU3_i . 



L 6 «i 3 4 

i620306 
,6 2 0308 



STREAM PR OG EOURE S T P P E R ( X ) ; 
BEGIN 

: Q 



'I t* X, 



PS ts 2 LIT "?*; 



t 6203l0 
L 6i0312 
[620314 



DS :* 6 LIT "stup;."; OS J* 8 LIT " " ; 

si := x; si : s si + a; bs i; e hds; 



-&mx 



,620316 

,620318 
,6203 2 



PRUCEOURE 
BEGIN 
LABEL 



readacard; 

rARnLa 5T» U ScTH FSjqTCH»H lT>FlH STTIMEFEUFf 



,620322 
[620324 
[620326 



exit; 

;h USES 



LABEL 
SWITC 
B O O L E A N OQ L 



WITCH := CARULaST'XII'XIUFIKSTTIMej 
LAR 2 T0GJ 



.6^0328 
.620330 
,620 33 2 



13 

14 

■5 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37' 
, 38 

39 

40 
■ 41 

42 

43 
I 44 

45 

46 
i 47 

18 



USfcTHESWl 
GO TO 



TCHJ 

usesw: 



ITCHCL 
L A STU S EO >s LA STU 



astuseqj; 

SE O ■> ■ i; 



1620334 
.620336 
,620338 



NCR S» LCR' 

GO to xit; 

FIKSTTIMEt 



H 



^620340 
.620342 
,620 344 



R£AD< 

FCR» 

IF EXAMIN(F 



CARD^l 
'NCR»s( 



0*CBUFF[*)); 

LCRI'#HK.A8S(C8UFFt-9.3 ))"9; 
CR) H "*" THEN 



.620346 
L620348 
[6203S0 



8EGIN 
PR.INTC 

-6WW 



ard; 



LIS10G J= ThUEJ 



,620352 
.620354 
. 6 2 356 



LASTU 

GO EX 

CAROLflSTt 



SEO 
IT* 



: 



1; 



.620358 
[620360 

[620362 



READ(CARD*10*CBUF 
IF LISTQG THEN PR 
L CP »-, MKAB S UB UF 



FC*])[E0F3; 

intcard; 
F_L8JJLi 



i620364 
.620366 

.620366 



£0F» 



CO EXIT) 
STOPPERCCBUFF)J 



L620370 
[620372 

[6 2:0374 



LCR J 

turno 

FXlTt 



= MKABSCCBUF 
NSTOPLIGHTC 



FC9]); 



,620376 
.620378 

,62QlflQ 



TURNONSTOPLIGHT( w 
NCR »* PCR »* LCR 



r*»LcR>; 

- 9; 



JOii- 



.620382 
[620384 
.620386 



END R 
REAL PRQC 



EADACARO; 
EDURE CDNVER 
RFGIN 



T* 
RL AL T? iNTtGE R H i 



.620388 

.620390 
[6 2039 2 



T* CONVCACCUMCl3»TCOUNT>N«-tCOUNT*TC0UNT>M0D 8); 
FOR N* TCOUNT+N STEP 8 UNTIL COUNT* 1 DO 
J> TxiQWOOOnOO* CftNVCACCUMCl 3«M»8V; _ 



,620394 
,620396 
[620308 



converts; 



end; 
define skan * begin 



.6*0400 
.620402 
.620404 



49 
i 50 
51 
52 
53 
54 



C0untjsresult*saccumci3 t*o; 

SCANNER! 

Q fAC CU Mm i 



[620406 
[620408 
.6 2 4 1 



PROCEDURE 
BEGIN 



END $} 
QOLLARCARO; 



[620412 

[620414 
.620416 



55 

56 
S>7 



procedure switchitcxrid; value xbit; integer xbit; 

BEGIN 
ROQLFAN R tT? : 



.620418 
[620420 
[ 6 2 04 22 



^r 



2 
3 
4 
6 
6 

; 

8 
9 
10 
11 
12 



13 
14 
15 



16 
17 
IS 



19 
20 



22 



24 
25 



28 



90 



34 

35 



36 
37* 



39 



42 



46 
47 



SO 

51 



52 
53 

54 
55 
56 



INTEGER SAVEINX; 

LABEL XMODtO,XMQllt'l#XMUDt2*XMODE3»ALONGi 

SWITCH S W»*XMQOE0 » XMQi; i > EUXM U DE2 * XMQDE3; 



XMQDEO; 



skan; 

GO SWCXM00fc>lJ* 
% FIRST OPTI ON ON 



pard. rut NinT sn. »pSft. pa pq p, 



X MU D Et i, 



COMMONJsBnOLEANCO); 

xmodei-i; iastuseoi*i; * cakd input only, 

% n o t first opt i on a nd n o t he i m . 1 s et* h t s e t* or pupp e d . 



XM0 0E2t 



C0MM0NJ*C0MMQN 

go along; 

it RFSFT. 



& TRUEtX|lT«13; 



XM0 Q F 3; 



c0mm0n»=c0mkcn 

go along; 

% S ET. 



& FALSttxan • n 



ALONG I 



COMMONjsCOMMQN & ( TRUE ) £ X8I T S 1 ] ; 
END SWTTCHTTl 



label exit* again* sk an again* length l*length3*i,ength4* 
length5,length6, 

whatisit; , 



switch optionl.ength»slen6thi,whatisit,i.£ngth3# lengths, lengths, 

LENGTH6*WhATiSlT; 

xmod e »»o; ____ ___ . 



TURNONSTOPLIGHTT 
SKANAGAINJ 

s k a n; 



'r'fLCRJJ 



AGAIN! 

GO OPTIONLENGTHtlF 
LFNfifUfl 



COUNT < 7 THEN COUNT ELSE 7J; 



IF Q * "1X0000" THEN GO 
IF Q = "1*0000" THEN QO 
GO WHAT LSI U 



exit; 

skanagain; 



LENGTH3I 
IF 



• "3SET00" then 

BEGIN xMOOEnai 



GO SKANAGAIN END; 



go whatisit; 

LENGTH^: 
TF a = "4LTSTQ" 



THFtN 



BEGIN 

SWITCHIT(LISTRIT); 
an akatn; 



end; 

IF Q ■ "4PAGE0" 
— BEGIN 



THEN 



if list0g then 
go skanagain; 
end; : 



WRITEU1NECPAGEJ); 



IF Q * "4C0QE0" THEN 

BEGIN 
S WITCN I T CC OOEBIT J . 



J&C- 



LENGTH5! 
IF Q 



go again; 
end; 
whatisit; 



* "5RESET" THEN 
BEGIN XMOOfctagi 



go Skanagain end? 



IF Q * "5PUNCH" THEN 

BEGIN 
SWITCHIT(CQOEPUNCHBIT); 



0l6<!0424 
01620426 



01620430 

01620432 
01620434 



01620436 
01020438 
016-2-04-40 



01620442 
01620444 
0l6?0ftflft 



01620448 
01620450 
03Q2 Q45 2 



01620454 
01620456 
Ql6204Srt 



01620460 
01620462 
01620464 



01620466 

01620468 

- 016204 70 



01620472 
01620474 
01620476 



01620478 
01620482 
Of 6»0z.flA 



01620486 
01620488 

016^0490 



01620492 
01620494 
01620496 



01620498 
01620500 
16 2 0502 



01620504 
01620506 
Q162Q5Q8 



01620510 
01620512 
01620514 



01620516 
01620518 
01620520 



01620522 

01620524 
016 20 5 26 



01620528 
01620530 
01620532 



01620534 
01620536 
1 62053 8 



01620540 
01620542 
01620544 



l?4 i 



■r- 

'18 

49 

SO 
11 
52 
:>J 
54 
165 
|hK 



h 



2 
3 
4 
5 
6 
7 

e 

9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 



IF Q X MONLYU" 
GO PUNCHONLYJ 



THEN GU AtiAlNJ 



GO WHATISp; 
LENGTH6I 
IF « "6SINGL" 



THEN 



BEGIN SWlTChlKSlNGLBIT); 
IF fl ■ "60EaUG" THEN 
BEGIN 



GU AGAIN ENO> 



S^ITCHlT(DEeuG6TT); 

go again; 

enh; 



21 
22 
23 
24 
25 
26 



29 
90 



mlhATlSlTi 

FLAGCO) i 
EXIT> 



go skanagain; 



end dollarcaro; 
integer procedure: tablecpj; 

BFGTN 



VAlUE ?> INTEGER P) 



LABEL .PERCENT»SPEClALCHAR#CCJMPLtTE# .. 

3CANAGAlN»ARGH»IPART»I0ENl'DOLLARi 
SWITCH RESULTSWlTrHt = IDENT»SPECIALChAh<MPAftTJ 



WHILE P J NXTELBT 
00 BEGIN 
SCANAGAIN! 



argh: 



COUNT ?=RESULT'sACCUMCU s =0> 
GO RESULTSmiTCriCRtSULTj; 



SCANNER* 



31 

I » 

13 

34 
I 35 
36 
37 " 

I M 
39 

♦0 

I *1 
42 
43 



45 
46 

I « 
48 

49 

I » 

51 

52 

I 53 
54 

55 

I 56 



q :* accum[h; t s* 0; go complete; 
specialchar: 

G-T-l — Is ACeUMCl J . f 18»6l; — _ 



GT1 !» SPECIAH.GTUGT1C42I4U3.3J; 

IF GT1 = 6 THEN GO DOLLAR; 

TF GT1 = 7 THEN tit) PFHTFNT/ 



DOLLAR: 



t i* gti; go complete; 

nm 1 ARrABnt 



percent: if ncr * fcr them reajacanu; 
go scanagain; 

TPARTt TCOUNTl«n ; C ! -C HNI \ZTRT i 

• result:^7; scanner; % deblank. 
Ojbaccumcu; result» = 3; 

T I* l; 



IF C < 32/68 ThEN 
ELSE T.ISNONLITNO i 
fig CQMPUTF? 



IDENTt Q«»ACCUMCUl T »» 2i 
COMPLETE* 
elbattnixtflbtust; 



IF NXTELBT»snxTELBT+1 > 74 THEN 
BEGIN 
MQVKtinjEluBA.Ua'SUKlBAU.t 



HoI-65; P«*P»6S; NXTELBT**iOl 

end; 

tf f TAtti Fi«fi RATTPn a g THt m 
IF * 'VCaKME" THEN 
BEGIN 
RESULT r« 6; 



sk an; 

go scanagain; 

END? 



01620546 
01620548 
Q 16 2 0550 



016^0552 
016^0554 
Q1620556 



01620558 

01620560 
01620562 



01620564 
01620566 
01620568 

01620570 
01620572 



01620578 
01620530 
01620' 



»5fi2 



01620584 
01620586 
0l62Q5flfl 



01620590 
01620592 
0i620SQfl 



01620596 
01620598 
01620600 



01620602 
01620604 
01620606 



01620608 
01620610 
0162061? 



01620614 

01620616 
0162061H 



01620620 
01620622 
Q162Q6P4 



01620626 
01620628 
01620610 



01620632 
01620634 
1 620636 



01620636 
01620640 
01620643 



01620644 

01620646 
Q1Q2U648 



01620650 
01620652 
0162Q654 



01620656 
01620658 
01620660 



01620662 
01620664 
Q1 62Q6 66 






44 < 



« 
,»3 

-.4 



^r 



, 2 
3 
4 

5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 



19 

20 



21 
22 



23 
24 
25 
26 
27 



29 



31 
32 
33 
34 

35 

36 

37~ 

38 

39 



42 
43* 



47 
18 



49 
SO 



52 
53 



55 

56 



end; 

F.ND TABLE ; 

PKQrrmiRE switcherc cgchjfv); 



value, cnrjHHv 



COMMON Is C0MM8N 8 (TRUE)tCODtOEVi47*Mi 



hFAL UOP>DE.Vf 



01620668 
016*0670 
01620672 



PRQCFnilRE GETCnnESfPU 



ttA| UF Pi 



iNTFfi FR ? i 



BEGIN 



01620674 
0162067b 
0l620ft7ft 



LABEL Z0T,SCAN>XIT; 
L.ABEL DXXJ 



IF BOOLEANCP) THEN PUNCHTO& S» TRUE ELSE READERTOG 

IF ELCLASS a COMMAV THEN S1EPIT' 

TF FLCLASS s SmiCQLCINV THEN - fi f) XIT i 



»? true; 



0162068C 

01620682 

-0,1 6 2068 4 



IF ELCLASS / IUV THEN 
IF Q ■ "JBCLOO" THEN 
RF.fi IN 



GO 211 



01620686 
01620688 

0162Q690 



DFTj 



SWITCHER<BCLB1T#P)J 

IF BOOLFANCP) THEN PUNCHDEFAULT l» ELSE 
RFAHEROEFAUI.T i fc 0; 



01620692 
01620694 
016*0 6 9 6 



IF 
GO 

-ewu, 



ELCLASa 

scan; 



s SEMlCOLOiW THEN GO XII 



01620698 
01620700 
01620702 



IF Q » "6KBCnl" THEN 
BEGIN 
SWITCHER( L BC0ICB1T*P); 



01620704 
01620706 
016 2 0708 



if booleancp) then 
go . sc a n; 



punchoefault 1 

REmUERDEFAULT 



s 1 ELSE 
! s l; 



01620710 

01620712 
01 6 2071 4 



01620716 
01620716 
01 ft* 07 20 



ENO; 01620722 

ZOTt FLAG(2>; 01620724 

■■ ■■ •-■■■-■ IF ROQLF A N(P) THEN Pt l NCHrnfi :a F AL SE E L SE RE O Q E RT O G ic F AL& E; "16^07?* 



% 

SCAN; 



go xit; 

WHILE STFPT * SFMTCQI.QN V P i > 



BEGIN 

IF ELCLASS * 

IF E LCLAS S X 



01620728 
01620730 
01620732 



COMMAV THEN 

tov yam an 



STEPlTi 
2ut; 



01620734 
01620736 
0162073ft 



IF Q s "3UCL00" THEN 
IF Q « "AEBCDI" THEN 

fin /f)Tt 



i>WiTCHER(bCLHlT>P) ELSE 
artITCHERlEBCDlCblT»P) ELSE 



ENO, 



01620740 
01620742 
01620744 



X 

XIT I 



01620746 
01620748 
016207^0 



end; 

PROCEDURE 
BE filN 



HANDLEMEMORY. 



FND? 



IF STEPI * EQUALV THEN STEPIT; 
IF ELCLASS * LITERALV THEN MEMORY 



01620752 

016*0754 
016 .2 07 56 



»* C ELSE FLAGC3)/ 



PROCEDURE HANDLEPRINTERJ 
BEGIN 
TF STEP I 



01620758 
01620760 
01620762 



FQUALV THEN STFPlTi 



IF ELCLASS n LITERALV THEN i 

BEGIN 
IF C X 132 AND C * 120 AKD C. * 60 THFN 



01620764 
01620766 
016 2076 8 



FLAGC4) 
ELSE PRINTLRLINELENGTH 



01620770 
01620772 
0162 0774 



c; 



END 



ELSE 



01620776 
01620778 
01 6 20780 



IF ELCLASS 
FI.SE 



t IUV THEN FLAGCi) 



01620782 
01620784 
01620786 



1 o-l 1. 

r- 

;4«l 
47| 

4Bj 



52| 



301 



^r 



e 

9 

10 

11 

12 



16 
17 



19 
20 



21 



22 
23 



24 
25 
26 



30 



33 



36 



»3 



46 



I 53 



55 
I 56 



*1 



IF Q = "4TKUE0" ThtN 
ELSE IF fi = "bFAL&E" 
ELS E F LA GCfri* 



PhlNTiRLINELtNtiTh U 13k 
THEN PRlNTERLINtLFNGTh := 



PRlNTERTQG »«= PRI MERl I NELLnGTH 

end; 

procedure ha noi ei. t nki 



* 0. 



BEGIN 

IF 
LF_ 



STEPI = 
FLCi ASS. 



EQUALV THEN 

t mv ThtN 



ST£H1T; 
Fi.A'j(Q) 



ELSE 



BEGIN 



IF Q * "60IRFi~ » THEN FLtfifH fLS F 



IF Q = "6LEAiiE" THEN 

BEGIN 
— ; SmnCHEOLINUOG »s F.ALSfci 



tf a 



LEASEOLINETOG 
END ELSE 
■ "fl&WlTC" THE N 



«* true; 



BEGIN 



END ELSE 
FLAGC6); 



ShlTCHEULlNLTOG *= TRUE/ 
L E A S ECI. I N L T f J U S - f AL R£i ■ 



-E-N4X. 



WHILE STEPI X SEklCOLONV DUi 
END; 
PR O CEDUR E H A NQLEPUN C H; 



BEGIN 



BCLPUNCHTOG !« FALSE; 
E BC DICPUNCMTDG I ■ FALSE; 



PUNCHDEFAULT J* Oi 

IF STEPI = eQuauv then stepiT; 

IF ELCLASS t IDV TK M FUAGfb) 



ELSE 



BEGIN 



TF Q « "4TRUF0" THEN 



BEGIN 
PLKChTOG 

STEPIT? 



:= TRoEi 



end; 
if q * m 5fals£ m 

BFfilN 



THEN 



PUNCHTOG »■ FALSE; 
END 
FLSF GFTCQQE SC n; 



ENO| 
PRQf.FpiJBF 



END; 



lsr; 



BEGIN 

READERTOG \m TRUE; 

HTfiHSPFEDRFAQFRTQr, 



>s .NHT RFAnEHfnG/ 



end; 
procedure 

BEGI N 



rlsr; 



READERTOG :* FALSE; 
HIGHSPEEDREADERTOG « = 

en d; 



headertog; 



PROCEOURE HSR; 

BEGIN 
READERTOG 



true; 



620788 
620790 
b?,Q79* 



620794 
620796 
62079.8- 



620800 
620802 
62,0604 



620806 
620808 
620B10 



620812 
620814 
6V06 1-6- 



620818 
620820 
62Q622 



620824 
620826 
6<?Q628 



620830 
620832 
620834 



620836 
620838 
62084 



620842 
620844 
6 2 08 4 6 



620848 
620650 
6206=1? 



620854 

620856 
620B58 



620860 
620862 
620864 



620866 
620868 
6206 7Q 



620872 
620874 
620876 



620878 
620880 
6 20 882 



620884 
620886 
62Q6B8 



620890 
620892 

6 2 694 



620896 
620898 
620900 



620902 
620904 



01620906 



■ : 'i 



■(5 

■if: 

4} ' 

4H 
4'* 
60 



54 
•lb 



^r 



9 
10 

I " 
12 

13 

| 14 

IS 

16 

i " 
18 

19 

I » 
2V 
22 



) Z3 
24 

26 

| 26 

27 

28 

30 

31 

33 
34 
| 35 
36 
37 ~" 

I M 
39 

40 
| 41 
42 
43 " 



45 
46 
47 
W 
49 
50 
51 



52 
i 53 

54 

55 
56 



highspeedreaoertcg »= readertog* 
end; 
PRjic E P U Hf hand le; k ea d e r? 



BEGIN 



01620908 
01620910 
01620912 



LABEL BYPASS»XIT; 
rpi RrAnrRTfir, ia ZAjJ^J 



-U- 



EBCOICREADERTOG !' FALSE; 
READERDEFAULT ' = U/ 
■S T E P! a EQUALV ThEN S TeHU ; 



01620916 



IF ELCLASS 
ELSE 

— BEGIN 



* IDV THEN FLAGC9) 



01620920 
01620922 
016 2 09 24 



IF 
IF 



-0- 



* "aTRuEO" then 

s "5FAL.SE" THEN 
s "4rt5960" ThLN 



H>R ELbE 
BEGIN rusr; 
liaR fcl.SE 



01620926 
01620928 

016 2 0930 



go xit; end else 



BYPASS! 
X IT J 

end; 



IF Q * "589x10" DR 

else gc bypass; 
stepit; 



Q 



"SB9ill° OR * "5B9112" THEN HSR 



GETCOIJES(O) 



ENO, 



LABEL DONE; 



NOHEAUING :* TRUE; 
LASTUSED is 4; 

REAO ACA SP; 



NXTELBT «= l> 

FILL SPECIALC*] WITH 

fl » a » fit n»n.Q.n..o.n.n.n.n»n.n«n.n. 



Q#0*6»0'0#0>4*0*0»0>3>?'*0'5»0>0; 



ELCLASS ?s 

WHILE TRUE 

RFftTN 



SEMICOLONV; 
00 



JLUlZi 



WHILE ELCLASS * SEMICOLONV DO STEPIT; 
IF STEPI = SEMICOLONV THEN t»0 NEXT; 
IF ELCLASS s IDV THFN 



BEGIN 



IF Q ■ >>COMMU w 
BEGIN 



THEN 



IF Q 



handlelink; 

end; 

= "6mfmuk" thfn 



gu next; 



BEGIN 

handlememqry; 



go next; 



IF Q « "4LINE0" 
BEGIN 

stepit; 



THEN 



IF Q 



IF Q 

ENO? 

, "7PRIN T" 



* "7PRINT" THEN GO ZOT ELSE GO BUZZ* 

THEN 



BEGIN 

handleprinter; 
e nd; 



go next; 



IF Q * "aCAROO" 
BEGIN 

stepit; 



THEN 



01620932 
01620934 
016 209 36 
01620938 
01620940 
01620942 



01620944 
01620945 
Q 1 ft 2 9 4 6 



01620948 
01620950 
01620952 



016*0954 
01620956 
01 6 20958 



01620960 
01620962 
Q16?0964 



01620966 
01620968 
016 2 097 



01620972 
01620974 
01620976 



01620978 
01620980 
1 620982 



01620984 
01620986 
01620988 



01620990 
01620992 
01620994 



01620996 

01620998 

-01 6 21 , 00 



01621002 
01621004 
01621006 



01621008 
01621010 
16 2 1012 



01621014 
01621016 
1 6210 16 



01621020 
01621022 
01621024 



pi 

"jij 

X! | 



14,; 

13 
•II 
45 

4(i 
47 
48 
49 
SO 

31 

iu 
S3 
54 
•■,5 



_J' 



h 



1 

3 
4 

6 

7 

9 

10 

12 
13 

IE 
16 

ia 

19 

k 20 
21 
22 

| 23 
24 
26 

| 26 
27 
28 

| 29 
SO 
31 

I n 
33 

34 

I 35 
36 

| 38 
39 



40 

42 
43 " 



45 

46 

I « 
«8 

49 

\ 50 



00 
JO 



51 
52 
S3 
54 



55 
56 



IF Q 
ELSE 
FI\Ci- 



s "oKEAUt" 
GO ZfJT> 



OH (J s "bPUNCh" THLN 60 TO BUZZ 



IF Q * "ftKEAOE" THEN 
BEGIN 

HANQICREaOERj 



01621026 
01621028 

ni 6^1 gin 



GO NEXT 



END/ 
IF Q a "5PUNCH" 

BEGIN 



01621032 
0162103*. 

01621036 



THEN 



IF Q 



handlepunch; 

END/ 

9 "4STQf.£.!l THEN 



ZOT: 
N E XT; 



end; 

FLAG( 10); 



to next; 
fia Tft pnNLt- 



01621038 
016<:1040 

16 21 02 



01621044 
01621046 

0l6?tQ48 



eno; 

OONEi 



01621050 
01621052 



CLOSE(CARD); 
IF MEMORY ■ Q 



THEN FLAfiU2)l 



X 

ENO 



IF NOT CLEASEOLINETOG OH Sw I TCHEDL I N E T U ti ) THEN FLA6C13); 
of aft rnMFTfiiiRATiniMi 



01621056 
01621058 
0162 1 059 



X 

% 
JL 



01621060 
016*1061 
0162106? 



% 
% 
PRUCFOIIHE SUMMARY ? 



01621064 
01621066 
016?1Q70 



BEGIN 



01621075 
01621080 
niftVIOBS 



FORMAT SUM1CNUMBER OF ERRORS DETECTED »"* 1 5# •• ."#X5# 
"ELAPSFO T1HF. ■M5 ,« SrcnNnS."!. 



SUM2("PR.0CE5S0H TIME *",I5,« SECUNDS . ", x5, »IQ TIME ="» 
I5»" SECONOS,"); 
WRITE(I. INFCOBI 1W WRITE(LTlMELMRl Mi 



01621090 
01621095 
Q162110Q 



WRlTECLlNE#SUMi#ERRORS#((TlME(U - TlMf 1 )/60 > H 
WRITE(tINE*SUM2,CTIME(2)/60)#(TlMEC3)/60)j; 



01621105 
01621107 
Q 1 62 11CB 



% 

% 

JL 



01621110 
01621115 



x 

JL 



01621125 
01O2H30 
01*311 ^ 



X 

% 
% 



01621140 
01621145 
01622000 



X 
X 



THE FOLLOWING IS THE FIRST EXECUTABLE lObC. 



01623000 
01624000 
01625000 



TIME1 t« TIMEC1); 



IF REALCCOMMON) s THEN 
BEGIN 

GETCflNFTfiURATiriNf, 



01626000 
01627000 
01627100 



end; 

PASSES l« 



kickitalloff; 
errors is passes; 



CODETOG 5» NOT CQDETQG; 
ERRORS; _^____ 



01628000 
01628100 
01 62 H? 00 



01628300 
01628400 
01628500 



IF ERRORS * THEN GO TO PUNCHUNLY; 

DO 

BS-ttTN 



01629Q00 

01629100 
01630000 



01630100 
01631000 
016 3 2000, 



i 
i 



117 



|2b 



I..I, 



I'. 1 
44 

45 

i r ; 

48 
49 

SO 
51 
5? 
53 
54 

U! i 



>r 



RfcAL SEGMENT. 
I 
DEFIN E 



TIMEOUT 
SOH 
-SOMP 



S>OQO#> 

19 » 

-14U 



01033000 
10UOOO00 
lOOL l OOO 



3TEXT 
5TEXTP 
-EX* 



10002000 
10003000 
100 0*1 000 



ETXP 

EOT 

EOTP 



25* 



131* > 

4«» 

4tf, 



1C005000 
10006000 
1 0070 0Q 



EMQ 

ENdP 

ACK 



6#» 



ACI<P 
NAM 



SYNC 
SYNCP 
-E-S-C 



134** 
■2l#» 
2l#« 



ESCP 

ms wax 

-CJR 



22## 
<i 7t * 



155#> 
375#> 
1 3 1 * 



DELETE 
BACKSPACE 

J-£ . 



1 2 7 * » 

60#» 
ISLLi 



CRP 

OM 

BLANK 



CONTROLAT 
LEFTARROW 
COMPRESSOR 



13#» 
6 3#* 
i2«* 



96## 
95#, 
2 7<t; 



DEFINE 
CHECKLTSTf yn 



SP2* LMDXXjQJ SAZ IW GOTaCLQC+12); 



T(C*X)» BRMCCHECKAOURESS); lCJAUXCO)> 

SAZi GUTn(L0C-8)J?; 



OEBUG 
IT£MP 



DEFINE 



LABC100}#, 
LAHf 1?6)«t 



DEBLANK 
DBREENTER 
Q B E NO 



D8LANKSUP 
D8N0N8LANK 
■■SC-4NF0-H DEL 1 METER 



LABC420)** 
LABC421)#> 

L4&C4Z24-JM 



sforeenter 

SFOEND 
S FDFO U ND 



■LA-@(42:J)#* 
LAB(4243#» 
LA8(42S1»» 



COMPARESTRING 

cskeenter 
csenq 



LA6(426)«, 
LABU27)#* 



• LABC429)#> 

* LA8(43Q)*> 
j i.AB<4»>«» 



CSNEQ 
IANDC 
B FF END- 



8FFSTART 
ILOOP 
NRMASK 



LABC432)*.* 

LABC43JU* 
L A H ( a a s ) u . 



5 i.A8C'444)#» 
s LA8C446)** 

_s — LAfl-iaaajuu 



1000BOOO 
10009000 
10Q 1 0000 



10011000 
10012000 

looi, woo 



10014000 

looibooo 

10016000 



10017000 
lOOldOOO 
1001C00Q 



10020000 
10021000 

10022000 



10023000 
10024000 
1Q025U0H 



10026000 
10027000 
iQOyflQOQ 



10029000 
10030000 
lQOJIQQQ 



10032000 
10033000 
10034000 



10035000 
10036000 
1Q0 370 QO 



10038000 
10039000 
1QQ46000 



10047000 

10047010 

-10047020 



10047030 

10047040 

H0fla70S0 



100a7060 
10047070 
100 4 7 06 



10047090 
10047100 
10 047 UP 



10047120 
10047130 
100 47140 



10047150 
10047160 
1 fl-0 09 OOP 



'!h 

1' 

28 

2i- ' 

30 

.■II 



143 
I'M 



|47 ( 
1 40 
■I* 

ISO 

r" 

|53 
_<>4 

'*. 
Mil 



1 

3 

4 

6 

7 

9 
10 

12 
13 

15 
16 

IS 
19 

I 20 
21 
22 

I 23 
24 
25 

! M 
27 
28 
29 



I J2 
33 



CHECKTIMCR 
CLOCK 
TIM E UP U T 



READYSTRING 
STARTOFSOFTBUFFER 

rimnr^FTBiippFfl 



LABC 1 33)#, 



IL3 
NOTHTNTiTHnil 



LABU14)*, 
LAfU 1 1 S 3 a . 



IM 



LARf 1 llJlKr 



i. A 8 C y 2 ) * # 
LABC128 j#, 



ENOOFNOTHINGTODO 
TE&TCR 5 i»mimi. 



LABC121)*, 
t-A8(38U#> 



TESTCP 
TESTMOOEM 
TF.STLP 



X 
JL 



NSECOND 



LAB ( 117)*, 
: LAB(311)tf, 
i l.ftH( 31?.) 4., 



* LAB(3l3)«i 



% 
% 

JL 



THE FOLLOWING DEFINES ARE FQR PRIMER CONTROL OPERATORS 



DEFINE 

ENABLELPINTERRUPT 

niSARI Fl PTMTfRRllPT 



JL. 



LPCLEAR 

LPDATA 

LPFQRMAT 



29*# 
Olfff 



% 
A. 



FUN 
FUN 



LPERR 
ENOOFPAGE 
•LPMOTIDNDONE 



93*# 
29** 



% 

% 

JL 



% 
I 

JL 



PRINTCYCLEDONE 
LPREADY 

I.PDATARFABY 






29##- 
61 $, 
9 3*, 



FuN 
BTO 



125#* 
189*> 



% 

I 

JL 



SEN 
SEN 

SEN 



SEN 
SEN 

,SFN 



THE NEXT DEFINE IS FOR THE BITS OF THE PRINTER STATUS 



WORDS 



DEFINE 

NOTREADYBIT 
LnCKBTT 



128*/ 
64*y 



L0CKBIT2 
EOPBIT 
I PFRRBIT 



% 
X 

JL 



MOTIONDONEBIT 
LPBUFFFULLBIT 
BUS YBIT 



32*' 



4*, 
2*> 

-ULL 



THE NEXT OEFINE CONtAlNS THE INQEXES FUR SPO MESSAGES 
PFRT A INING TO TH E LINE PRINTER , _____ 



DEFINE 
LPNR 



% 
JL 



LPCK 



1 Q 3 1 f 



s 1164) 
THF NFXT DFFTNF rriMTATNS THr fABP u nr cnm-runt nn^sTAMT*; 



10050000 
100^1000 

.005.2000. 



10032010 
10052100 

i ori^aoo 



100o4000 
10005000 

ioQ7?nno 



10072010 
10072100 

10075000 



1CU/6000 
100/7000 

i nofflooo 



10079000 
1OOBOOO0 

mQfltnno 



10002000 
10083000 
10Qti40QQ 



10085000 
10086000 
inowrnnn 



10088000 
10089000 
10090 00 



10091000 
10092000 
10093QQ0 



10094000 
10095000 
1009ftQ00 



10097000 
10U98000 
10099000 



loiooooo 

10101000 

mio^noo 



10103000 
10104000 

imo«inrio 



10106000 
10107000 
10108000 



10109000 
10110000 
1 0M1Q00 



10112000 
10113000 
10114000 



10115000 
10116000 
iaii7nnn 



DEFINE 
SINGI.FSPACF 



DOUBLESPACE 
PAGESKIP 



16*? 



* 

s 



32## 

i#; 



10118000 
10U9000 
lQl2000n 



10121000 
10122000 
10123000 



I 

i 
i 

i 



21 

u 1 



■a 

44 
45 

■ir, 

47 ' 
4» 

t' : , 
50 
51 
52 
53 
54 



h 



10 

I " 

12 
13 

I w 
15 

16 

I ,7 
IS 

19 

20 

21 

22 

23 

24 

25 

26 

27 



28 

I » 
30 
31 

33 
34 
35 

36 
37 " 
38 
39 
40 
41 
42 
43 ~ 



45 



46 
47 
«8 
49 
50 



52 
53 
54 
55 
56 



DEFINE 

MSGCX) 



USl CASCIICXJ 3#> 



% 

% 

JL 



101*!4QQ0 
10125000 
10 IrftQOO 



THE NEXT DEFINE. LAYS OUT THE ARRANGEMENT OF THE PRINTER 



DEFINE 

ENDPOS 
LI N E FQRM A T 



10127000 
8uFFEfil012800Q 

mia9nnn 






LINEREPLICATCR 
FIftSTPRlNTCHAR 



9 
S 



'lit, 
iUi 



10U0000 
101J200Q 
10 . 3 300 



% 
% 

JL 



10134000 
10133000 
101 36000 



THE FOLLOWING ARE LABELS USED IN THE PRINTER ROUTINES 



DEFINE 

PR1NTERNQTREADY 
P R INTF RCH FCK 



10137000 
10138000 
10139000 



c 



LAeC7)#* 
LAH(ft)*. 



NUPRINTERACTIVITY 
PRINTALINE 

PRTNTTHFBWFFEft 



PRINTERLOCKED 
PRINTERL0CKED2 

SETPRTNTFRNPTRLADY 



LAB(9)*> 
LABClO)## 
LAB (.11 i*» 



10140000 
10141000 

toupono 



LA8(13>*> 
LA8U4)*# 
LARf 36 Tit. 



10143000 
10H4000 

inu'.ooo 



PRINTAFTER 

NORMALPRltUT 

EXP A NDPRlNTERDfaTA 



10146000 
10147000 

muflonn 



PRINTERTEST 
PRINTNOBUFFER 

EisinnFi.pRUErER 



LABC 17)*# 
LAB(1B)»» 

U8(19) » * 



STARTOFLPBUFFER 

LPWRAPARDUND 

FFTCHPRINTCHAR 



» LAB(20)#> 
» LAB(325)#> 
g LAfl(3a9)#* 



10149000 
10150000 

- w a looo 



EXITFETCHPRINTCHAR 
LPUPDATE 

LOAnPRlNTrHAR 



LABC390)#* 
LABC391)## 
L A3 (392 iff* 



10152000 
10153000 

ioi93inn 



s LAB(393)## 
6 LAB<394)#, 
_a LAB-r.94 v*. 



10153110 
10153120 

10 I'l "J 130 



PRINTERLOQP 

PRINTIT 
_££ 



10153140 
10133150 
10154000 



PRINTERTRANSLATE 

LPTABLE 

PRIMTERLABl 



LAB (22) A* 
LAB(23J»# 

l„ ABC 36ft )*» 



PRINTERLAB2 



9 LA8(24)#» 

• LAi(45J## 

-* L AB(25)»> 



10155000 
10156000 
101 5ft 100 



LAB(26)»; 



10137000 
10158000 
10159000 



% 
JL 



% 

% 



THE r OL.L Oi i . I NG DEF I NES A W L F O R STUh AS E L OC A T I ON ? . U ftE U B Y TH E 



PRINTER ROUTINES 



10160000 
10161000 
10162Q00 



OEFINF 



PRINTERCCTABLE 
PRINTERBUFFERS 
PRINTERTEMP 



10163000 
10164000 
10165000 



L.PSTATUS 

NEXTPRINTERFCRMAT 
PRINTERFORMATCOUNT 



LAB ( 1 77 }», 

LABC291j#» 
LABf ii?)ti 



-4-^2- 



JL 



PRINTERLOOPCCNTROL 

LPPOINTER 

WPLIM -LT- 



LA8C27)** 
LA8<29)#* 
LAR( 30 Jitt 



% 
% 

JL 



10166000 
10167000 
1Q 1 6/U0 



PRINTERQ 
PRINTERTAR 



LAB(3l)», 
LAB(32)>.» 
L.A B( 3 33*» 



10168000 
10U9000 
10170000 



% 
% 

-X- 



9 



LAS{34)#> 
LA8(35)*; 



% 
% 



101/1000 
101/2000 
10 1 /3000 



10174000 
10173000 
10176000 



ill I 
4ilj 

'bi'i 
'.'.I 



55 

.5 



> 



1 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
IS 
17 
18 



19 

I » 
21 

22 

I 23 

24 

26 
I 26 

27 

28 
, W 

30 

31 ~ 

J2 

33 

34 

35 

36 



37 
38 



40 
41 



42 
43* 



45 
46 

I 47 
48 



49 

I 50 



51 
52 

I S3 
54 
55 

i 56 



X 

% 

JL 



THE FOLLOWIING DEFINES aRE FQH THE. I/O OPERATORS NEEDED TG 
HANDLE TH E C A R P R E ADER .. „ , 



101/7000 
101/6000 

ini/vooo 



DEFINE. 
RFADHTBHS PFFPRFAnFRSTATUS 



I9 3ffr 



BTI 



LQADDMAO 
L0ADDMA1 
TNTTlATFHrfiHfiPLhrDHFAnhrt 



■1.0180000 

10181000 
miai inn 



23## 

a5#> 



JL 



BTO 
BTO 

FUN 



ENABtEHlGHSPEEOREAOERlNTERHUPT V 87#V X FUN 

INHIfllTDMACQUNT s 247#'> X FUN 

HTfiHSPEFnRFADF.HMQOE 5 2X5JU » atn 



lOlalliO 
10181120 
101 8 U 30 



LUADcRTTABuE 

INCREMENTCKTaDURESS 

CL fcA RHIfiHSP E E D HEA U ER 



* BTI 



10181140 
10181150 
1 1 6 1 1 ft 



lbl#* 

131<» 



OlSABLEHIGHSpEEORfcAOEHlNTERHuPT s 119*, 
HlGHSPEEDREAOtRNEEOSSERVlCE s 23#, 

WRITEUPPfcRHAiiiFUfCUt H7 *f 



X 

-X- 



BTQ 
FUN 
F U N 



X FUN 



10181170 
10181180 
101 81 190 



WRITXLOWERHA.LFOFCOI 

REAOCRTADOKta- 

FNARLECRINTEHRUPT 



BTO 



OISABLECRINTERRUPT 

CRCLEAR 

CRINITI A TE 



5»f 



1 1 9 # * 
H9#, 

, — ft FUN 



X 
X 



10181200 
10181210 
1 01 ft 1, 220 



BTO 
BTI 



69*, 
1Q1*> 



:■* 
x 



CRONLINL 

CRERROR 

CROATAREABY 



FUN 

FUN 
-F-U4>L 



10181230 
10lol24C 

loiwaooo 



10183000 
10184000 
10185000 



5*, 
3 7*, 

6 9f.» , 



CRBUSY 
CRREAD 



X SEN 

*. sen 

* SEN 



10186000 

1018/000 
10188000 



101 ■#> 

5#; 



X 
X 



SEN 
BTI 



X 
X 

JL 



10189000 

loiyoooo 

10 1 91000 



THE NEXT BLOCK UF DEFINES CONTAIN THE DEFINES FUR THE BITS IN 
THF CARD REAQFR ST A TU S WU RU. ; _______ 



101V2000 
101V3000 
101*4000 



DEFINE 

JL 



NOTREADYBIT 



m ) 2 ft it 



X lOCKBIT 
X L0CK8IT2 
CRFIRSTRIT 



10195000 
10196000 
|ni07nnn 



CRINHIBITBIT 
CRSUPRESSNRMESSBIT 
CRRDFFFtM I BIT 



64*, 
32*, 
1 6 tt 



64 * 
4#> 
_____ 



UlVduOO 
10199000 

lo^onooo 



X BUSYBlT 



102U1000 
10202000 
io203nnn 



l*> 



OEFINE 

CRSCANSIT 



10204000 
10205000 
10205100 



4*1 



X 
X 



10205110 
10205120 



DEFINE 

CRT.BIT 
EOFBIT 



10205140 
10205150 
102Q5lftO 



4#, 

64», 



FEEDCHECKBIT 
CRERRORBIT 



10205170 
10205180 
102Q519Q 



8#, 

i6#; 



X 
X 

JL 



10205195 
10205200 

1020521,0 



THE NEXT SECTION OF DEFINES CONTAINS THE INDICES IF THE SPO 



10205220 

10206000 
10207000 



iri 

1411 



I'! 



^r 



] 2 
3 
4 

, 5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 



, 23 
24 
25 

i 2 « 
27 
28 

I » 
30 

31 

- 32 
33 

34 

35 

36 

37 ~ 
38 



40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 



% 
% 



MESSAGES USfc-Q bY TH£ CARD HEADER ROUTINES 



DEFINE 



CBNR 
NOMEM 



65 *r 

20 3»f 



1020(3000 
10209000 

lcaioooo 



102H000 

10212000 



CRERR 
CRINV 



^2»> 



% 



10213000 
10214000 
1021 5 00 



THE FOLLOWING 
CODE . 



DEFINES ARE STORAGE AREAS USED BY THE CARD 



10216000 

READtl02l?-000 

10 2 18000 



DEFINE 
EBCD 1 CVECT R . 



BCLVECTOR 
CRTABLE 
C1I-RRENTCARDTAB1 E 



I , A d ' Hi i ) i * 



CRbUFFER 
CRSTATljS 
CRFLAGS. 



LAB(40)#, 
LAB(41)#* 
t,AB(7a)*> 



10219000 

10220000 
1 Q2210 Q 



% 

JL 



CRSUPRESSCDUNT 
CRCOUNT 

CRFF — 



LA«U2)#, 

LAfcC43)*# 

.L A BC4 4 ,J ,<»., 



VECTOR 
2 

-2 



16 



10222000 
1O223Q00 
10^24000 



VECTOR 

1 
-I 



80 x 2 



CRPOINTER 
CRFIRSTSPACE 
CRUMP 



LAUU6>## % 1 

LAB(72)#, % I 

LAB (4 12)*, 



102^5000 
10226000 



CRTEMP2 
CRTEMP3 
CRSCRATCH- 



LABC47 )», 

LABC397 J## 

L A fci U 8 J 1 * 



* 2 



10228000 
10229000 
10 2 29100 



% 
% 

JL 



CRSCRATCH2 

CARDREADERQ 

CARDREADERUTMI 



LAB(401)#, 

tAB(402-).#> 
LABUfr)*» 



102J0000 
10230100 
10 23 1 00 



LA B ( 5 ) » > 
LABC51)*, 
Uh(52 3« i 



-*-!- 



10231100 
10231110 
t-Q? 18000 



1023300C 
10234000 
I Qr .5000 






THE NFXT HirCK OF DEFINES IS FOR 1 HP i. ABFl S LiSFH IN THF CARn 



READER CODE. 



10236000 
10237000 
10238000 



PEFfNF 



LOADCRT 
STARTCRTLOAC 



9 LABC«08)#* 

» LAB(409)*> 

_5 LAfl(<MO)*» 



10239000 
10240000 
10241000 



LUADCRTSlNGLE » lARC4ll)», 
CRINTERRURT s LAb(b3)»# 
C A BDREADE R IMERRUPTMQTD A T A H fc ADY « LA6CS4)** 



10241100 

10241110 
10241130 



EMPTYCAROREA0ERHQPPER 

CRNOTREADY 

CRRFADY 



9 

m 
a 



CAUDREAOERSTARTIO 
CARDREADERLCCKLD 
CAttORFaUFRi Qj KLp? 



LABt55)## 
LAB156)#, 
l,AB(S7)»> 



10241130 

10242000 

4 02 4 3 00 



10244000 
10245000 
m2a6fififi 



MOVECRBUFFER 

GETNEXTCAROCCL 

TESTFORCRnONF 



LAB C 59 )..#..* 
LAfcC60)*> 
LA6C6I )ti 



9 



kaybeendofcrsupression 

lqcalte5.tf0rcrd0ne 

initiali7ecrsupressiqn 



LAB(62)## 
LABC63)#, 
I AB(ftft!)*. 



10247000 
10246000 
10249000 



DONTTRANSFER CRBUFFER 
CRRESTARTSCAN 
STDRECRCHAR 



LABC6.5)#f 
LAB (66)** 
I.AHf h7i*» 



10250000 
10251000 
1 0252000 



LABC68)#» 
LAB(395)## 
LAR( ?l<ih )#t 



10253000 
10254000 
10255000 



10256000 
10256100 
10256 UP 












Ufll 






54 
r ,5 
56 



2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 



18 

19 
20 
21 



22 
23 
24 
26 



26 
27 



28 

i 29 

30 

31 



32 
33 
34 
35 
36 
37 ~ 



38 
39 



40 

, 41 

42 

(3 



45 
46 

I " 
48 
49 

| 50 
51 



52 
I 53 



54 

55 



*L 



CROUTQFSPACE 

ENUOFCRBUFFER 

STftRTOFCRBUFFEH- 



lAHC 39B)#» 
LABI 399)#, 
LAB^.OQ.J.O* 



100KAGAIN 
LOOKFORNEXT 
ENOCARO 



LAB(A34)#> 
LA'B(«35.)*> 

LA 9(<i 3 6?f * 



BCLCARD 
EBCDICCARD 
B C LCRD 



E8CCRD 
ENDCRO 
CHFTlRflETCARQ. 



LMBC'i36)*» 

u. a a c < * j c > 3 y » 



LAfi(440)#» 
lAB(441 )#* 
I. A8U42)g» 



CRNUTCC 

CAKDREADERERROR 

ChECKFQRINyALl U &H/u< 



storecardchar 

readcheck 

invaliocardchar 



L A I'H 4 4 b ) » * 
LAbC69)** 






LAB (73)** 
LABC75)#* 
•LA-B'(71-)»1- 



THF NFXT hi CILft Q£ DEFIES JFFlM-TS THK wnnFrt nPFHATflKS. 



DEFINE 
t-NlRLFMnDFMTNTf RRUPT 



36tt 



1 Fun 



DISABLEMDDEMNlERRuPT = 7G«* * FuN 
TURNONDTR = 102»* .< FUN 
T U RMONRS , » 1348* , £ FUN 



TURNOFFRS 

GOTOBITMOOE 

QOTOgYTEHOOE 



»■ 166** 

- \9tjtB 



f*UN 

fun 

FUN 



MOOEMCLEAR 

&I1M0DE 

HYTFRFQUEST 



s 2 3Q** 

* . 6 u * 

i it.fi 1./ 



% Fun 



OATAPRESENT 

CARRIER 

fLFARTflSFMp 



B 7Q#* 

s lO'g'i*. 



X SEN 

X SEN 

X SfN 



INTERLOCKQN 
RI^GRECEIVEC 
OD OPARTTY 



s l6o»* 

i i*8«* 
g 2,3Q»* 



X SEN 
* a EN 

^ sen 



MODEMREAD 
MODEMWRITE 



6#* 
6#> 



BTI 
BTO 



X 
% 

JL 



10256120 

10*56130 

4Q 2561 4 Q 



10256150 
10256160 
10 256 170 



10256180 
1021)6190 



10256210 
10256220 
1QP5623Q 



10256240 
1025 7000 

10256Q00 



10259000 
10200000 
10261000 



10262000 

10263000 
1 Q264QQQ , 



10265000 

10266000 
1 026/000 



10268000 
10269000 
lOPfOOOQ 



10271000 
10272000 
10? 7 3000 



10274000 
10275000 
102 76000 



10277000 

1O27B0OO 
m??gnnn 



10260000 
102blQQ0 

10^82000 



10263000 
10284O00 
10265000 



THE NEXT GROUP OF DEF 1 NES LI SI a THE MODEM STATUS CONDITIONS. 



DEFINE 

IDLE 



10266000 
10267000 
lQ2 a B QQ Q 



0*» 

2 #* 



10239000 

10290000 
10291000 



TRANSMITENQ 

RECEIVEENQ 

TRAHSMITACK 



6#* 
-8JU- 



10292000 
10293000 
102,94000 



RECEIVEACK 

TRANSMITNAK 

TRANSMITHEADER 



s 



10#* 
12#> 
lft#* 



RECEIVEKEADER 
TRANSMlTMSG 
RFCEIVEMS8 



10295000 
10296000 
m297nnn 



ia#* 

20tf* 
22#* 



TRANSMIT8CC 
RECEIVE8CC 
ACKNOWl, FnfiF 



10298000 
10299000 
10300000 



* 

s 

JL. 



24** 
26#* 
2ft*« 



10301000 
10302000 
1Q3Q3Q0Q 



I,; 
11 



'28 

,2't 



in 

T 

19 
10 



•h:i ! 
j 'i 

3fl 



10 

11 

12 



13 
14 



16 
17 
IB 



'9 
20 
21 



22 
23 
24 
26 
26 
27 
28 
29 
30 



33 

34 

35 

36 

37 ~ 

38 

39 



40 
41 
42 



43 
44 
45 
46 
47 
«8 
49 
50 
51 



52 
53 
54 

55 
56 



RECEIVERESPCnSc. 
TRANSMITEOT 
LQOKFORRING 



1Q»> 



10 JG4000 
10J05000 
10 306 000 - 



% 
% 

JL 



THE FOLLOWING DEFINE QECI *HgS Tri£ SPO MESSAGES 



10307000 
10308000 
10309000 



% 
% 



FOR THE MODEM ROUTINES. 



DEFINE 



10310000 
10311000 

10 3 1 2 000 - 



HLMESS 

NOSYSTEMLINK 
CONNECT IQNM ACE 



5 
s 

_a_ 



0#, 
■50<# 
U 3 * > 



10313000 
10314000 

loaisooo 



CLSOFF 
MISSINGMESSAGE 



35#* 
I9#i 



10316000 
10317000 

103 1 flonn 



% 
% 

JL 



THE NEXT GROUP QF DEFINES LAYS OUT THE MQQEM FLAG. 



10319000 

10320000 
1 321 00 



DEFINE 

LINEACTIVEBIT 
MYSTART. B IT 



128» » 
64 »» 



CONNECTEDBIT 
RINGBIT 

INTERLOCKBIT 



s 



32#» 

16#» 

B»» 



10322000 
10323000 



10325000 
10326000 

10^27000 



0TR8IT 

CARRIEHBIT 

CLFARTQSFNnPlT- 



1 ff > 



10328000 
1032*000 
l J ^000< 



JUL 



1000 



X. 

% 

JL 



THE' FflLI.QMMr. Bl OrK UF niTFlNFS aSSIP.MfS TNF MOnPM LARFLS. 



10331000 
10332000 

10333000 



DEFINE 



INTERLOCKlHTERKllPr 



LOSSOFINTERLGCK 
INTERLBCKCLEANUP 
I NTE RLO CK 



LABC13Q)#,i 



10334000 
10335000 
10336000 



L'A8C13D«» 
LA6C152)#* 
LABC234)*, 



10337000 
10338000 
1Q 339Q Q0 



CARRIERINTERRUPT 

RlN&INTERRUPT 

CLEARTOSENDlNiTERRUPT 



LABC134)#, 
LABU35)*» 
LA6C136)*, 



INITIATERECETVL 
SYNCHRCNI2ERECEIVE 

1 nnK'FflfinATA 



L00KF0REN8 

IGNOREMESSAGF 

5ETUPFQRSYNC 



5 LABC 1 37 )## 
* LA6(138)#* 
B LAfU33n«» 



10340000 
10341000 
10 3 4 2 



10343000 
10344000 
1 3 45 000 



LA8C139)#* 
LABC 335 )»» 

LABC UOjij 



10346000 
10347000 
3 4 81 



JUi 



i OOQ 



LOQKFORETX 
FOUND ANENQ 
ENOflFBLnCK 



LABC 
LAB( 
LABC 



142>#> 

369 >'#>. 

370 :,)*> 



10349000 

10349100 

-10349200 



INCOMMING 
LASTTRANOK 
CLOSEMSfi 



LABC 
LABC 
LAB f 326)* * 



144)#> 
1 4 3 ) * 1 
326)* 



103130000 
10351000 
10352000 



CLOSETHELINE 

LOOKFORACK 

FnUNQTHEACK 



» LAB(U6)#» 

« LABC147)»# 

s L Aft f 1M)#> 



10354000 
10355000 
10356000 



foundanak 
oecypheRResponse 
l q u kf u rh ea u e r 



LABC 

UABC 
L.ABC153J#^ 



1.50)#* 

151)*/ 



10357000 
10358000 
359QQ0 



-Ui 



STOREAMESSAGE 

MODEMSTORE 

REVEHSESUPRESS 



LAB< 
LABC 
1. ABC 



155)#* 
156)## 
157)*» 



10361000 
10362000 
10 36 3000 



4«| 



56 

3 



ft 



1 

3 

4 

\ 5 

6 

7 

I 8 
9 
10 

I H 
12 
13 

I 14 
15 
16 

l 17 
18 



19 

21 
22 



) 23 

24 

25 
} 26 

27 

28 
|29 

30 

31 

\ 32 

33 

34 
k 36 

36 

37 ~ 
| 38 
39 

40 

I « 
«2 

♦3~ 

I 44 

45 



JO 



46 

► « 

•8 

49 

I M 

51 



52 
53 
54 

55 



MODEMFETCH 

BLANKSUPRESSION 

SUPRESSIT 



LPSUPRESS 

TOOMANYfltANKS 

CHECKBCC 



s t-ABClbd)*, 

s LAB(159)tf, 

-a LABflfiOlrft 



LASTRECQK 
8YPASSSUPRESS 

FnilNDANFOT 



■ t-ABC161)## 

s IAB(162)## 

-a 1 ABC 161) * 7> 



PLACEEnDOFBUFFLRPUSITIUNs 
BADRECNO s 
FORM A TERROR s_ 



LAUC3ld)#, 

lABC H9jtf,« 



MS.GTOOLONG 
LOOKFORENDQFPLUCK 



LA8(320)«f* 
LA8C164}## 
L ARM 66 )&»- 



GETACHAR 
INITIATETRANSMIT 
flKTOSEND __ 



I-ABC168)*/ 
LA8U6<0#, 
LAri(H9)fl. 



SYNCHRONIZE TRANSMISSION 5 
TRANSMITSYNC = 

ACKNOKI, EOGELASTHrC =_ 



« LAB(171)*n 
9 IABU72)#, 
-a LABf 171)#i 



NOIINEACTIVITY 

WAKEUPUNE 

Kit t.THEl. INE 



LAB (1?.«.}#/ 
LABU75}** 
t-A.SC 17ft )* p 



SENDAHEADER 
T AGAIN 

-UJ8 



= LABC211J** 

* LA8C178)*, 

-■ t-ASC I r9)&» 



ADOTOMESSAGE 

SENOAC 

FINISHTRftMSMIT 



ubciso)** 

UAB<ia2)#» 
i A BC m n )« * 



READYTODROPLINt 
ABURTTRANSMIT 
S T U FFIT 



LABC185>#> 
LA8( 1 66 > sc^ 
■ A B ( 1 ft 7 ) rt * 



IGNOREOATAIf^TEHRUPTS » 

ANSWERRING s 

TfiNnwrRTMr. s_ 



LABCia9)#/ 
LABC190)## 
I.. AB C3 6UAV 



TSLEEPEH 
RSLEEPER 

TSI.FFPHFRF 



LABC191)#, 
LABC193)#> 



rsleephere 

findamessaqe 

founqtraffic 



LA8C193J#» 
LABC196}*, 
LABmi LLt 



SETUPUDINFO 

NORMALCLEAHTQSt.NL) 

JU S TID L EDTH E L I N E 



s LA8C332)** 
• UA8<197)#» 

g Lftflf?ni)». 



normalcarrier 

FINOTHEACTICN 
HANHLEBAOTRAN 



LABC323j#* 
UABC2J2 )#> 
— = — i ftB . ,C i? o U»« 



CARRTERON 
MODEM I OLE 
OP E NALIN E 



i-ABC205)#» 
LA8C206)#, 
LAfiC?09)Et 



NEWACTIVITY 

STORECC 

SKIPRFFQRF 



LABC210)#, 
L A B ( .2 1 2 J # # 
t.A 8C? 1 3)tf« 



s 
s 



SIMPLESKIP 
SPACE IT 
PSFIXE D 



LA8C95)jK» 

LA8C219)*, 

UAH(??OVft 



OSFIXUP 

S1MPLESPACE 
STORFMSG 



IA8C221)#> 
U.B(222J##. 
LABC2?3)tf, 



* LABC224)#> 
« LABC225)** 
» LAfitia?)*. 



103O4000 
103O5Q00 
lU.inftQQQ 



10367000 

10368000 

10 3 O9000 



103/0000 
103/1000 
10372000 



10373000 
10374000 
1037SQ00 



10 3/6000 
103/7000 
103/6000 



103/9000 
10380000 

10381,000 



10382000 
10303000 
10384000 



10 385000 

10386000 
10-18 7 000 



10388000 
10389000 
1 i90Q Q0 



10391000 
10392000 
10:19 3000 



10394000 
10395000 
1 03 951 00 



10396Q00 
10397000 

tQ3¥B0nf) 



103WO00 
104OU000 

io»uiono 



10402000 
10403000 
10407000 



10408000 
10409000 
104 10000 



104U000 
10412000 
10413000 



10414000 
10415000 
10416000 



10417000 
10423000 
ifi4 34nnn 



10425000 
104*6000 
10427000 



10428000 
10429000 
10430000 



id 

ir.'i 



I J-' 



14 

« 

il'i 

17 ' 

48 

■IS. 

SO 

51 

5? 

s;, 

■">S 



>r 



20 

21 



SENDANAK 
3ENDACK 

.MUSPACFFflRMnnrM 



LABC 129)## 
L A B 11 8 8 J # / 



RETRY 

LINKBACK 

MAKFANFHQ 



LABC8*)#* 
LaB(86>*# 



HL 

EUREC 
MAKFNilTRFADY 



MAKEREADY 

NRSTORE 

R ST HRE 



LaBCHH)», 
LaB(^4 }tf * 
LAB CI 4 3,)»,r 



1 G 4 3 1 
104 J2000 
)4. 



104J40Q0 
10435000 
1 n436nnn 



CSTORE 
XIT 



LA8C 165 )*> 

L A B ( 4 1 5 ) » 
LAHf fl^.^M. 



1043/000 
10438000 

10439000 



10440000 
10440100 

UT44Q11Q, 



LABC4 17 j## 
LA8C226)*; 



% 

1 
JL 



104uGi20 

10441000 

-10443000 



THE NEXT BICCK 
LOCATIONS, 



OF DEFINES KESERVES SPACE FOR ThE MODEM 



10443000 
ST0RAGE1044400Q 



DEFINE 
RFCFTVEI ABKl. 



TRANSMITLA8EL 

RINGLABEL 

C A RRIERL A BEL 



LftHf ?m 3#t 



CLEARTOSENOLABEl 
MQDEM3TATUS 
NEXTACTIVITY 



s LAB (231)** 

» LAB(232)»> 
_s 1 , AB(23 3 )g»' 



LASTACTIVITY 
ACTIONTYPE 



LA3C235 )*, 
LaB(2j6)#> 
LACK 2,37 H« 



LA8C238)## 
LA8C239)#* 
LAHf ?40)#i 



RCOUNT 

REGNO 

TRANNO 



BCC 

MODEMFlAGS 
JACJ 



LA8C9b)## 

LA3C2«1)#, 

LAB(242,)B I > 



MC2 
MC3 

MlinFMTFMP 



■ LABC 243 )*# 

* LABC 244 )## 

JE LAflX2-4SjJU 



i-A8C246)W/ 
LABC321)** 
LAH<847 \*t 



UNIT 

UNITNO 

UNITUPDATE 



3TUREDC0UNT 

FIRSTPOINTER 

U N I TBUFFEREND 



s LAB.(248)#» 

» LA8C183)#, 

-a LABC V27)a* 



UNITBUFFERSTART 

UNITTAIL 

UNTTl TMTT 



LABU98)#> 
LABC iy9J## 
I, Ad CRl/i j at* 



LA8(2l5>#* 
LABC 216 )## 
LABX12HULt 



UD1 
UD2 
UnQFFSFT 



UDLENGTH 
UDTOGS 
ACTION! ABFl 



LABC249)*, 
UBC2bO)## 

LAHC2S1 )», 



PQWERSQF10 

TOGTABLE 
LFNflTHTAHl K 



• LABC252)** 
«' LAB(253)#/ 



LAB.(256)#» 
LABC37)#, 
LA6f 3HiKi 



LASTTRAN t 

UNITBUFFERSTARTTABLE » 
UNIITHUFFFRFNnTAHl F ■ 



LABC?7}#* 
LABC407)## 



10446000 
10447000 
1044H0Q0 



10449000 
10450000 
10 4 51000 



10452000 

10453000 

-104'.i4000 



1Q455000 
10456000 

1045/000 



10458000 
10459000 
10460000 



104O1000 
10462000 
1 046 .3000 



104o4000 
10465000 
1(1466000 



10467000 
10468000 
1Q469QQQ 



10469010 

10469020 

4 046V U4 



10469050 
10469060 
1 0469070 



104/3000 

104/4000 
104^5ooo 



10476000 
10477000 
1Q478Q00 



104/9000 
10460000 
10481000 



10482000 
10482100 
1.0*82110 



,2k) 



kil 



,16 

■ 4 7|l 

4ft 






^r 



1 

2 
3 
4 
5 
6 
7 

e 

9 
10 
11 
12 



13 

14 
IB 



16 
17 
18 



19 
20 
21 



22 
23 
24 



25 
26 



27 
28 
29 
90 



31 
32 
33 



34 
35 



36 

37 " 



38 
39 



40 

I « 
42 

43 

I « 

45 

46 

I » 
•6 

»9 

I *> 

51 



52 
I W 

54 

55 

I 56 



UN1TUPDATETAHLL 
UNITLIMITTABLE 
MQPEMLABl — 



uAb( 12 '4 )»» 
LABC 1 23 )#, 
LAftU?2J#t 



UPDATF.VECTQH 
LFP 

LRF , 



UB(414)#» 
UAB(418>*# 
LAB(<iU9)l« 



10482120 
10482130 

1C4HWU0 



QUEUES 

SQFTQTAIL 

MOPFNIPnlNTFR 



LABC78)*/ 
LAHC lGfJ** 



10482150 
10482160 
10482.70 



io4b3ooa 

10484000 
1C483000 



LASTREC 

OFFSETTABLE 

nilTPUTuNlTT 



ABLE 



s 
_s_ 



LAB(81)## 
LaB(82)## 

I.A6(U)li 



INPUTUNITTABLE 
CC1TABLE 

MASKTABUE 



10486000 
10487000 
10488000 



LA8C5H)** 
UAb( 181 )t* 
I. ABU 3 4 jtf» 



MBUFF 



1048*000 
1Q4<*0000 
1 491Q Q Q 



LAB C 254}** 



I 

JL 



10492000 
10492100 

)49?; 



44Xi 



DEFINE 

FILLQUTBIT 
K NPPQ I MT BI T 



L440- 



1«« 



X 



REVERSEBIT 



4»; 






TH£ NEXT GRCUP O F DEF I N I T I ON S LS L iSlC bY THE MflDEM C U BE. 



DEFINE 



ENS 



GCT0CXIT)#* 



DEB UGDUMP C X ? 



I I := PH t C.ISlfjN; 



spi; luad(x); 
stindcdebug); 
■SP2; LOAnniFRii 



J3X 



iar; 

EM IT C lb 



STCDLBUG); 

+ n*i/2); 



PRECISION Is n#, 



RECEIVE 



brm(GEtachar); 

PRECISION t.s 1## 



SENDCX) 



IF PRECISION X 1 THEN SP1> 

LOAOCXJi 

BRMf BFNfUC)»f 



TRANSMIT(X) 



IF PRECISION 
LOAOCX); 



X 1 THEN SPfl 



INITIALIZEBCC 



BT0(MQ0EMI«RITE)#» 

IF PREC1SICN X 1 THLh SPi; 



cla; 
stcbcc;*, 



INCREMENT(X) 



loau(x); 
iar; 

ST(X)*> 



NEKT(X) 



IF PRECISION 

LOAnm; 



* 2 THEN SP2i 



10492120 
10492130 
lQ4V 2 i ao 



10492150 
10492160 
1049P170 



10493000 
104*4000 
104^000 



10496000 
10497000 
10498000 



10499000 
lObUOOOO 
1 ^0 1000 



1Q302000 
10303000 

ifl 5Q< m nt] 



10305000 
105U6000 



10308000 
105Q9000 

insionnn 



10511000 
10312000 
IQ3130QQ 



10314000 
10515000 
10316000 



10^17000 
10518000 

10519QQ0 



10320000 
10521000 
10522000 



10523000 
10524000 
1Q32500Q 



10526000 
10527000 
10926000 






.-I"' 



44 

-15 

46 

'4? ' 

48 

49 

<>0 ' 

;.i 
« 

:>3 
r >4 

5b 

■(' 

!■' i 



^r 



10 



15 
16 
17 
18 



19 
20 



22 

I » 

24 

25 
i 26 

27 

28 

29 

30 

31 " 

32 
33 

34 
35 
36 

37 " 



, 38 
39 
40 
41 
42 
43 ~ 
44 
45 
46 
47 
48 
49 
SO 



52 
53 

54 
55 

56 



% 

-X- 



oTtNlXTACTlVll Y )»i 



% 

% 

JL 



THIS GROUP CF DEFINES OECLARES THE OPERATORS TO HANDLE 
SPO CONSDL READS AND WRITES. THERE ARE OTHER OPERATORS^ 
BUT THF SOFTWARE DDES MOT USE THEM. 



% 
-X- 



% 
% 



% 
% 



% 

% 

JL 



% 

% 
JL 



X 

JL 



% 
% 



DEFINE 

s. 



PQCLE AR- 



-m-, 



SPOWRITEREADY 
SPQREADREAUY 
SPQWRITE 



i t FUN 



33#» 
1 *» 



% 

% 



SEN 

SEN 

-&4U- 



SPOREAD 



1* 



% 6TI 



THE NEXT FE* DEFINES DECLARE THE SPO STATUS BITS. 



DEFINE 



DONTSTQREBIT 
ECHOBIT 

KEY I NCONT.INUEDBIT 



bt\t, 

— 3 2 < » ■ 



% 
% 



NOT USED 
NOT USED 



LOCAL B IT 



OUTBUSYBIT 
INBUSYBIT 



16#» 
8#* 
4 », 



2*> 
1#> 



THE FOLLOWING IS THE ONLY Spg MESSAGE FOR SPO. 



DEFIN E 



LINEINUSE 
REENTERKEYIN 



i26#; 



thf nfxt ri rr.« nf dfFinfs is fuh kArHi-i npjTnMs nirn ay 



THE SPO CODE 
POSSIBILY. 



SPECIFICALLY AND BY OTHER PIECES OF CODE 



OEFINE 

SPOUTCX) 



IF PRECISION 



* 2 THEN SP2. 



SPUUTSLEFPtX) 



BRH (ENTER SPCJUTM ESS AG£ )## 

IF PRFCISH1N i c ANQ X i D TH E N S iLgJ 



105<d9000 

lObiUOOO 



10522000 

10533000 

10534000 



10535000 
10b36000 
10547U0Q 



10538000 
10539000 
105 4 0000 



105ai000 
105-42000 



1 0544000 
10545000 
10546Q0Q 



10547000 
10548000 
105 4 90 



10550000 
10551000 
10552000 



10553000 
10554000 
10^) 5 500 



10556000 

10557000 
10558000 



10558100 
10559000 
1J5O000Q 



10561000 
10562000 
10563000 



10564000 
10^65000 
1 05O6Q0 Q 



10567000 
10568000 
10569000 



IF X ■ THEN CLA 
BRM(SPCSLEEP)## 



10570000 
10571000 
1Q57200Q 



ELSE DESCCXH 



CHAINDDWN 



TCC'X)* 

luadx(O); 

SA/i , 



1057 3000 

105 74000 

4.0 575 000 



G0T0(L0C-5)#; 



10576000 
10577000 
10578000 



THE NEXT 6LCC* OF COOL CONTAINS THE LABELS FOR THE SPO CODE 



10579000 
10580000 
10581000 



DEF I N E 



SPOINPUT 

ACTUALSPOREA0 

ENDOFKEYIN 



* LABC263)** 

« LAB(26«)#» 

-3 1. AB( 26*t)*t 



10582000 

10563000 
1U564QQ0 



10585000 
10586000 
10587000 



4„» 

13 



,47 
|4H 



si! 



10 



12 
13 



15 
16 
17 
18 



19 

20 



23 
24 
2S 



27 
28 



29 



31 

i a 

33 
34 

I 35 
36 
37 " 



♦0 

I 41 
42 
43 



46 



18 



49 
I 50 



51 
52 



55 

I 56 



SPOQUEUEACTIVE 
LEAVEKEVIN 
FQUNQHRll 



5 LABC267 )*» 
s LABC^6fa)/>* 
LA^jUIAJJU 



LINEINACTIVE 

ENQAGAIN 

OELETEKEYIN 



10588000 
lObBVOOO 



ENDDFLINE 

NE.WKEYIN 

N US P A tfEF U RKEYI 



» UABCJ76)#» 
* U8(377)#, 
1 LAB(a69Ut 



CHECKKEYIN8UFFER 
STARTOFKEYINRUPFER 
ENPOFKEYlNBUFFXK 



LABC270 )#> 
LAb(27l)rf* 



10589200 

10589300 
10S90000 



END0FSP08UFFER 
STARTOFSPCBUFFER 
S P Q BRE A K „ , 



* LAB(324)#> 

* LABC296)*, 
s LA8C297X*- 



IDLESPQREAD 

SPOUTNOTBUSY 

NOSYSTEMSPnUTS 



LA8C299)..** 
LABC3C1 )## 
U B (3Q3J tt* 



« lA8C2?9>»* 

• LAB(280)#» 
LAHf 7*1*. 



ECHOBACKKEYIN 

LQNGKEYIN 

ENDQFFrHnBACK. 



LABC2«1>»> 
LABC262)#» 
LARf 2J13JJL! 



FINDASPOUT 
SP0UTMSG 

FNnnF.spnuT 



» uAH(2B4)#» 

* LAB<285)*> 
.5 lARf 287)#* 



SPUFETCH 
ENOOFSPCJLINE 

FQUNDSPQUT. — 



ENTERSPOUTMESSAGE 

SPOSLEEP 
TESTSPQINPUT 



LABC273)#* 
LABC2/4J*, 
I.ABC275)«» 



JL 



TESTSPOOUTPUT 



* LA8(292)l>» 

* LAB(293)*> 
_a LA8(294)a* 



uAB(310)#' 



X 
% 

JL 



THE NEXT 8LCCK OF DEFINES 
USED BY THE SPO CODE. 



IS FUR THE STORAGE LOCATIONS 



DEFINE 

SPOSTATUS 
KEYINfi 



KEYINQTAIL 

SPOUTQ 

SPQUTQTAI L 



' LAB<314>*' 
LAB(n^r 



SPOUTUABEL 
SPQUTCOUNT 
SPQPQI MTE R 



LABC16)## 
LA8X79>## 

U9C315?*? 



IA6C295)*' 
* LA3C298)#» 

lA B( 3 QQj*, 



KEYINP8INTER 
KEYJNCOUNT 
C HA R 



■ UABC303)## 

» LA8C304JI* 

_■ LABC30S)»> 



SPQTABIE 

SPUMAX 

S P O M ESS 



NEXTSPOUT 
PUTSPOUT 



58 L*dC306)*' 

» lAB..C3.07.)## 

-s LAB(317)«f 



* LAB<308)#' 
» UAB<309)#; 



PROCEDURE TSLEEP(XX); 
VALUE xx; 

. R F A L x x; 



IF XX * THEN BRM(TSLEEPHERE) ELSE 

BEGIN 
tp PRFrySTniM * 9 thfn sps>; 



lObVlOOQ 
10592000 
1 ^9 300 



10594000 
10595000 

105-iftOQQ 



10^97000 
10598000 
10 S 99000 



10600000 
10601000 
1 06020 



10603000 
10604000 
10605000 



10606000 
1060/000 

to60flf)on 



10009000 
10609500 
1 6 1 0000 



10612000 
10613000 
10614Q0Q 



10615000 
10616000 
\ QQ 1/000 



10618000 
10619000 

1 Q62 Q0QQ 



10621000 
106^2000 
1Q623000 



10624000 
10625000 
10626000 



10628000 
10631000 
10633000 



10636000 
10637000 
10638000 



106J9000 
10640000 
10 64 1000 



10642000 
10643000 

106 44 000 



10645000 
10646000 
1 Q647Q QQ 



10648000 
10649000 
1 Q6 5Q00Q 



1C 

l<( 



■:-6, 
>,< 

26 

i.l 
,1 



1'J 

44 

45 

4(i 

47 ' 

48 



12 

53 



>T 



2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 



13 
14 



15 
16 
17 
18 



19 
20 
21 



22 
23 



24 
25 
26 
27 



28 
29 



30 

31 ' 



33 
34 
35 



36 
37 " 



38 
39 



42 



45 
46 
47 
48 



49 
50 
51 
52 
53 
S4 
55 
56 



desccxx); 

G0TOCTSLE£Pt'«)/ 



1G65100C 
106b<i000 
106^000 



PROCEDURE RSUEEP(XX); 

V A LUE XX J 



1Q654000 
10655000 
10656000 



HEAL XX; 
IF XX s THEN BRM(KSLEtPHEKE) ELSE 
-_ If X X , s IQNQREGATAI i MTERH U PTS THE* , GUT0( S 1 0f f IT ) EL S E 



BEGIN 



1G657000 
10658000 
10 6 5 8 100 



IF PRECISION * 
DESC(X X ) ; 



2 THEN Sp2; 



GOTO(HSLEEFER)i 



10659000 
10660000 
106 6 1000 



end; 



10662000 
10663000 

loftoaoo o 



define 

CPB UFFFU l 1 HTT 



jOJLL 



1066«.l00 
10664110 
0664l?Q 



% 

% 

_l_ 



-1 



THE FOLLOWING DEFINE S DE C LARE THE PUN CH OP E RATORS 



10664130 
10664140 
10605000 



DEFINE 
CPCL E AR 



167*; 



* FUN 



10666000 
10667000 
10668Q00 



CPINITIATE 
ENABLECPlNTERRtPT 
CP WRTTERFA Py 



135*' 
_LL5JLt_ 



FUN 
FUN 
SFN. 



1066900C 
10670000 
1Q6/1QQQ 



CPFIRSTFOUR 
CPERROR 
CPBUSY 



103** 



SEN 
SEN 
St-N 



CPREAQY 
CPWRITE 



/*; 



10672000 

106/3000 
10673100 



% 
% 



SEN 

bTO 



X 

X 



10674000 
10675000 
106/6000 



THE NEXT GROUP OF DEFINES DECLARES THE STORAGE LOCATIONS 
FOR HANm IKK Thp PUNCH. , 



10677000 

NEEDE10678000 

iQ67vnno 



DEFINE 
, Pl.INCHQUFl.iE 



UAB( iilfl,)!. 



10680000 
10681000 

in6H?nno 



PUNCHQUEUETAIL 
CPSTATUS 
PUNCHCCUJNT 



s LAB(339)#» X 2 
» LAB( 340)#V % 1 



PC2 

ENDOFCPBUFFER 
CPT E MP 



10683000 

10684000 
10685000 



LABC342)#, % 1 

LABC362)** 
LAaC 3 .4 3)« < — : — ,...*,. 4 



CPTEMP2 
C PTC HP 3 
CPRESTBREPRECISIQN 



■■ LAB(371)#* 
b LAB(372)#, 
= LAB (373 J a* 



X 4 



10686000 

106&6100 

4 06 8 7 



X 



PRECISIONCON 
CURRENTPUNCHTAbLE 
PUNC N BUFFER 



10687100 

10687200 

-40687300 



8CLPUNCHTABLE 
EBCDICPUNCHTABLE 
PUNCHBUFFERS 



LABC374)#, 
LAB(34«)«, 
i.AB C3 4 5i»» 



LAB(346)#* 

LAB(452)#> 
L AB(36Q)#; 



% 4 
% 2 
it 60 x 2 



80 x 
X 80 

-1 



10667400 
10688000 
1 06 89000 



X 

X 

JL 



10690000 
10690010 
106901 



X 
X 



THE NEXT GROUP DF DEFINES DEC L ARED THE LAb E L S N E E DED 



10691000 
10692000 
10693000 



DEFINE 



10694000 
10695000 
lj) 6 9 6 000 



1,, 



pfc 

1"! 

1.11.1 



;.w, 



L 

- 1 

|4ti| 



62 

S3 

1 54 

3 1 



h 



10 

11 

12 
13 
14 
IS 
16 
17 
18 
19 
20 



21 
22 
23 
24 
25 



i 26 
27 
28 
29 



30 
31 
32 
33 



34 
35 



36 

37" 



I 41 
42 
♦3 



46 



W 

49 



\ 53 

54 



55 
t 56 



CPSTR 
SP0EBCD1C 
S P O BCU 



MS Of OS Y STEM 

5PGF0RGETMSG 

CPINTFRRIIPT 



LABC447 J*> 
LAB(446)#> 
l »rt&(. 4 .49)r» 



* LAB(450)## 

a LAB(45l)*> 

_■ LAHf 34 7Vi».», 



1069610C 
106V6HU 



10696130 
10696140 
10 69/1 



'oon 



CPTRANSFERUATA 
CPFINISHED 
CPUNCHERRDR 



LAB (340 K> 
LABC35Q)*, 
LAB (351 )#> 



1069600C 
10700000 
10?U.OOO 



PUNCHCHECKER 

CPREADYNOh 

PllNCHEflNVfftT 



LAB(352)#> 
LAfi(353i## 



10/02000 
10703000 
n704nnn 



-1 



EXPANDPUNCHCATA 
ORUERPUNCHCYCLE 
BL A NK O UTP U H C h 



« LAb(3b.5J*# 

- LABCib6)## 

_J= LAHC 383i«* 



PUNCHRETRY 

CPFE TCH 

■ ST A RTOFPUMCHRUFFER 



EMOOFPUNCHBOFFLR 
CPNOTREADY 
CP LOC KEO 



* LAB(«03)#f 
s LA8C404)#> 
-a 1 ABCfl05)i8> 



1G/Ob000 
10/06000 
1070 6 1 



s LABC406)«U 
«= LABCJb7}»* 
Jt LAb t3 58 1 ** 



10706200 
10706300 
10 706*00 



X 

JL 



CPL0CKED2 



LA0(359)#; 



10706500 
10707000 

10706000 



% 

% 

-X- 



THE NEXT T^C 
MESSAGES, 



DECLARATIONS ARE FOR THE PUNCH ERROR 



10709000 
10710000 
1Q7110Q0 



DEFINE 

CPNR 
flPr.K 



10712000 
10713000 
10 71 4 000 



178#* 
191 If 



10715000 
10/16000 
10717(100 



X 

% 

-X- 



% 

X 

-X- 



10718000 
10/19000 
20000000 



PROCEDURE SPACEHANDLER CONTAINS THE LOGJC NEEDED TO PERFORM 
THF SPAfF hAMO t TMr, FUhCTHlhtS KLQllTRFfl BY ANY rnqr JfiURATin N 



20001000 
20002000 
30003000 



X UF THE DC-1C00. 

X 

PHUCEDURF SPACEHANDLER; 



BEGIN 



20004000 
20QU5000 
2-QCOftQOC 



real segment; 



20007000 
20008000 
2Q P9Q 



X 
X 



END OF SPACE HANDLER' 



2021400C 
20215000 
202,16000 



X 

X 

JL 



THE PROCEDURE TRANS! ATQRS CONTAINS THE LOGIC TO" INCLUDE AMY 



TRANSLATORS NEEDED BY ANY OTHER P*RT (jF THE DC-1000 SYSTEMt 



X 
X 
PRUCEDURF TRANSLATORS, 



20217000 
20218000 
20219000 



BEGIN 



202*0000 
20221000 
?02?,2000 



REAL SEGMENT; 



IF PRINTERTOG THEN 

BEGIN 
LABL(PRINTERTRANSLATC); 



20223000 
20224000 
2Q225Q C 



HEADING ("PRINTER*'** TRANSLOCATE 

DS2(Q); 



20226000 
20227000 
20228000 



%o,3j; 



20229000 
20230000 
2Q23J I Q00 



I2<* I 



4-1) 
45 
46 

l«l ' 

"J 

50 
CI 

52 

t;i 

54 



>r 



8 
9 
10 
11 
12 



13 
14 

15 
16 
17 
18 



19 

20 
21 



22 
23 



25 
26 



27 
28 
29 



30 



33 



34 
35 



36 
37 " 



38 



41 
42 



♦5 
46 



48 



•9 

50 



54 



SP1I 

SLU 

-EUJ- 



sli; 
sri; 
iar; 



20232000 
20*33000 

aoyjxiooo 



20235000 
20236000 
?023700fl 



SRiJ 

SP2; 

S .L. H J 



SRBi 

AOO(DES(LPTABLt)>; 
TCCV); 



20<23800Q 
20239000 

ao2<toooc 



20241000 
20242000 
PC243000 



SP1* 

LOADX(O); 
GOTOINP(PRIKTIlKTRANiSLATL); 



202A4000 
20245000 
20246Q00 



end; 



END OF TRANS! ATflRSt 



% 

% 

JL 



20247000 
20248000 
20*49000 



PROCEDURE STflRAGFI 



20250000 

20251000 

THF F O L LO W TNG PRuCEQUft E HLJFrtVtS SPACf NFF I. FQ BY ThF V A ftl Q US ?n252»nc 



PERIPHERAL HANDLING ROUTINES. 



BEGIN 



REAL segment; 



LABLCDEBUG); 

HEADINGC'DEBUG 
DS2CM£HinRY) I 



',0,0*0, i )i 



lablcclock); 

H E ADINGT'I' LO C* 



' t Q . 1 * X ,) ? 



DS3(0)J 
LABI (RFFSTART); 



HEADINGC 
032C0); 



, bFFSTAR w # ,, T 



" , , , 2 ) > 



LABL(BFFEND); 

HEADING( tt BFFENO 



',o,o#u,i ); 



LABLCNRMASK)J 

HEAQINGC"MR 



MASK"tUf Of 0*1.,)? 



DSKl * C IF PUNCHTOG THEN 4 
C IF PR1NTERT0G THEN 



ELSE 0) ■♦ 
2 ELSE 0)); 



LABL( ITEMP); 

HEADIiMG( M ITE*P 
DS4C0); 



"#0,0,0, I)} 



LABLCOUEUES); 

HEAniNGCBHEUgS 



'.0,0,0. 1 M 



D52C0), 
LABLCSOFTQTAIL); 

nszcou 



LABLCKEYlNQj; 
- HFAnTNfir"KFYIiM 



Q " f " UE U£ ",Q,0,2)i 



20253000 
20254000 
20255Q0Q 



20256000 

202^/000 

- 202 580 00 



20259000 
20260000 
20261000 



20262000 
20271000 

?na 72000 



20273000 
20273100 
2027 J200 



202/3300 
202/3400 
2Q2/J 5Q0 



20273600 
20273700 
20273800 



202/4000 
202/5000 
20276000 



20277000 
20277010 
?027fl00O 



202/9000 
20280000 
20361000 



20262000 

20283000 
20284000 



20285000 
20286000 
Pfi2H7nnn 



20288000 
20289000 
20 2 9 Q 0Q0 



'■' 7 i 



it 
4> 



r 

n 



h 



6 
7 

» 8 

9 

10 

> » 

12 
13 

I 14 
16 
16 

► » 
IB 

19 
| 20 

21 

22 
I 23 

24 

26 
} 26 

27 

28 

I » 
30 

31 ~ 

I « 
33 
34 

i 35 



36 

37 " 

I M 
39 

♦0 

I 41 

♦2 

43 



45 
46 

f « 

48 

49 
,50 

51 

52 

I S3 
54 

55 
I 56 



QS2CO); 
LABKKEIYINQTAIL); 

p.s?(o>; 



LABlCCARDREADERQ); 
. — , :, HgAniNfi("r.ARQ RE'VAIUR qi)"i M EUE 



" t n * 1 ) ; 



D32C0); 
LABLCCARDREADERQTAIL); 
OS 2C 3 ; 



LABL(SPQUTQ); 

-^ H£ AQ IN6 ( " SPQUT- a"ii)ifl>l)ilW 



D32C0); 
LABICSPQUTQTAIL); 

_ D S 2 C0) J 



LABL(PRINTERQ); 

HEAQlNGr'PRINTER" 



os2co); 

LABLCPR1NTERTAIU); 
D S 2(Q); 



n \Q*Q*2)i 



UABL(PUNCHQUEUE)i 
HE A PING CRUNCH Q* » W U E > JF. 



">o>n>2)i 



0S2CO); 
LABLCPUNCHOUEUETAIL J; 
QS2CQ); 



% 

% 



END uf storage; 



X 



% 

% 

JL 



THIS PROCEDURE CONTAINS THE CODE NEEDED TO PERFORM THE 
QVFRALI COKTROl FUNCTIONS UF THF nr»lflnn. 



% 

PROCEDURE 
BEfiTN 



executive; 



LABLCXIT); 



HEADINGC'XIT W »0,0»0,1)J 



sptt; 

LOAD(ITEMP); 



20291000 
20292000 
2029 3000 



20294000 
20295000 

pnavftono 



2029/000 
20298000 
202 99 QQQ 



20300000 
20301000 
?0 30?000 



20JU3000 

20Juaooo 

20 3 05000 



20306000 
20307000 
2Q3OflQ00 



20309000 
20310000 
20U10 Q 



20312000 
203121QQ 
20312200 



20312300 
20312400 
20 3 12 500 



20312600 
20313000 
20 3 14 00 



20315000 
20316000 
20 31 7000 



20318000 
20 319000 

?n32Qnnn 



20321000 
20322000 
?n3230flfl 



20324000 
20325000 
20326000 



20327000 
2032800C 
20329000 



ibe; 
cst; 



labu(nothingtodo); 

headingc'nothing's" 

5_l£J NOP; HLIi 



20330000 
20331000 
2 Q3 3 2 Q0 



TU DO "*0»0*2)i 



X 

JL 



SS3; nop; hit; 
FxrruTivr rnnE to hanhlt HUnrM. 



20333000 
20334000 
2Q33bQQQ 



20336000 

20 337000 
20338000 



lablctestmodem); 

, HEAPTNGf"TEST 



MP'S "DEN 



" , , ,2 ) i 



SP1J 

LOAD(MODEMFLAGS); 
SANN1 



20339000 
20340000 
20341000 



20342000 
20343000 
20344000 



1 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 



13 
14 
IS 



16 

17 



19 
20 
21 



22 



24 



26 



26 
29 



30 
31 
32 
33 
34 
35 



16 

37 " 

38 

39 

40 

41 

42 

43 



46 
47 
48 
49 
50 
51 



52 
53 
J4 
55 



G0TO(L0C+5); 
BRMCMODE-MIDLF); 



LABUTESTLP)* 

HEAOINGCTEST 
FftlNTERTQG THEN B RMPRIttT K R C 



■4-F- 






LABLCTESTCR); 
_ H£AUINGC"TLSTCR-— iO,O f O, I )i 



IF REAOtRTQG THEN BKMC CRREAOY ) / 
LABLf TESTCP)i 



HEADING ("TEST CP"/ 0/ 0/ U, 1 J ; 
IF PUNCHTQG THEN BftM( PuNCHCHECKtK ) ; 



LABLCTESTSPQOUTPUT); 

HEADINGC'TEST SP M ,"Q 
SENCSPQWRITEREADY ); 



OUTPC'V'T 



M /0#3); 



6QT0(L0C+«)J 

gotoinocspoltlabed; 



LABL<TESTSP0INPUT); 

HEADINGC'TEST 



Sp'%"0 INPUT"*0#0#2)J 



GOTDCLQC-t-t* )} 
GQTQ(SPOlNPUT)i 



LABLCNSECOND); 

HEA0IN'6("N-S£C0N»S ,, D 
SP1I 



"# 0*0*2) J 



LOADCNRMASK)) 

SAZN> 

GnTOCCHFCKTI^ER), 



SQOi 
G0T0(L0C+15); 

spgt 



loadcspoutq); 
subcspoutqtail); 
saz; 



G0TOCL0C+7); 

cla; 

IAftl 



BRM(MAKEREACY)* 
IF PRlNTERTQfi THEN 



BEGIN 

spi; 

IQAnC N R M ASK); 



SRI J 

sod; 

GUTQfLnC+15)f 



SP2; 

tOAO{PRINTER0)i 
SUfiCPRINTFRTATL); 



saz; 

G0T0CLQC+7); 
L nADc3)f 



brmcmakeready)* 
end; 



203«500Q 
20346000 
2 03*7 00 



20348000 
203^9000 
20350000 



20356000 
2031)7000 
203 5 8 000 



20359000 
20370000 
2C3/100Q 



203/2000 
20372100 
20 17 30 00 



20 3/4000 
20375000 
20376000 



20377000 

203/8000 
203/9000 - 



20380000 
20381000 
20382000 



20363000 
20384000 

20305000 



20386000 
20387000 
20388000 



20389000 
203<yQ000 

20391000 



20392000 
20393000 
2039400Q 



20395000 
20395100 
20396000 



20397000 
20398000 
?f)39Qnnn 



2Q4UOOO0 
20400100 
2 0401000 



20402000 
20403000 

20404000 



20405000 
20406000 
2Q4Q70 QQ 



20408000 
20409000 
20409100 



20410000 
20411000 
2041200Q 



20413000 
20414000 
204^5000 



> if l 






>r 



2 
3 
4 
5 
6 
7 
8 
9 
10 
11 



13 
14 



IS 
16 
17 



19 
20 



22 



24 
25 



27 
28 

I » 

»_ 

31 

I « 
33 



34 
35 



36 

37" 

I 38 



I 41 
42 
43 



45 



46 

> » 
18 
49 

! so 

51 



52 
I 53 



55 

I 56 



IF 



PUNCHTGG 
BEGIN 
S&4J 



THEN 



loao(nrmask); 
sri; 

sri; 



sod; 

GOTO(LGC+lb); 
SP2J 



LOHD(PUNCHQUEUE); 
SUB(PUNCHQUEUETAlu); 

S-A7J 



GQTOCLOC+7); 

LUADC2); 

e RM C MAKERK A CY)! - 



ENO, 
LABLCCHCCKTIMEP); 



HFADINGCCHFCK 
SP2i 
. L OAD tLa STACTlV I TY -U- 



T"."IMEK ",0,0,2); 



sub(transwiteno); 
saz; 

GOTO(NnTHINGTOUO); 



ibd; 

CS.QCLOC + 3) i 

JHL34 



uoao(cuock); 
iar; 



sann; 
gotq(endofncthImgtddo); 



LABICTIHEOOUT)! 



HEADING( M TIME00U W 



•>0»b*2-)J 



spz; 



cla; 

STCLASTACTIVlTr ); 

sp i; 



INCRE»«fNT(MC3)i 

sazn; 
GQTQfL0C+7)J 



BRM(QPENALlNE)i 
GOTO(ENOOFNCTHlNGTi300>; 
SPHUTf Hi MESS)f 



cla; 
stclastactivitY); 



LABL(ENDOfNOThINGTOOQ); 

HEADlNGC'tNU OF 
LBEJ 



"/"NOTHING'S" TQ DU ",0,3ji 



csqcnothingtooo); 
end of executive.} 



% 
% 
% 



% 

% 
A. 



INITIALIZE SY3TFM CREATES THE CODE NEEUED TQ CLEAR ALL 



20415020 
20415040 



20*15080 
20*15100 

20 4 15120 



20nbl«10 
20415160 
20* 1 5180 



20415200 
20^15205 
20*15220 



20415240 
20*15260 
20*15280 



20415300 
20415320 
30M6000 



204x7000 
20418000 
2C141V00U 



20420000 
20*21000 

20*1 2 2000 



20422100 
204*2200 
20 * *3000 



20424000 
20425000 
204^6000 



20*27000 
20428000 
?04<jV000 



20430000 
20431000 
?n43?nnn 



20433000 
20434000 
20*35000 



20*36000 
20437000 
20438000 



2043*000 
20440000 
SO**. OOP 



20*41100 
20*41200 
gn<ua.non- 



20442100 
20*42200 
20*42300 



20*42400 
20443000 
20***000 



AND TQ INTERROGATE THE SATAOS OF EACH OEVICE AND 
STATUS WOROS TO THE PRQPE« STATE. THEN THE FREE 
ARE CREATED USING THE REST OF MEMORY. 



20445000 

20*46000 

DEvICES2Q44700Q 



SET THE 
SPACE QUEUES 



20448000 

20449000 
2Q45Q0Q0 



I'l 

I'll 



% 



I 

8 
9 
10 
11 
12 
13 



15 
16 
17 
18 
19 



20 
21 



23 
24 
26 



26 
27 
28 
29 



30 

31 " 



32 

33 



34 
35 



36 
37* 



38 



40 
41 
42 
43 



45 
46 
47 
48 
49 
50 
51 



52 
53 



54 



% 

PRUCEDURE 
B EGIN 



INITlALIZSYSTEMj 



INTEGER FHEE»TQTAUi 
REAL USE>FACTDR; 
REAL, ARRAY 'F C t 5 3 i 



INTEGER ARRAY M[0;53; 
LABEL LQOP.OCNE; 



% 



LABI f INITIAL \7E)l 



HEADINGC"INITIAL%"W£ 



" » , , 2 J / 



% 



THE FOLLOWING IS SYSTEM INITIALIZE CODE FOR THE MODEMS, 



IBPi 



CSQCLOC+3); 
IF HIGHSPEEOREAOERTUG ThEN 
BF6IN 



sp2; 

IF READEROEFAULT * I THEN DESCCEBCDl CVECTOR ) ELSE 
DESCCBCLVf.CTQR); 



BRMCLOADCRT); 

FUN(CLEARHIGHSPEEOREADER); 
end; 



FUNCTURNONDTR); 

SP2; 



ST CO & USE IT 
LABL(ILQQP)/ 

U_J 



type); 



saz; 

gqto(iloop); 

SFNf TNTFRl nr.KflNJ; 



G0T0CIL3); 

spi; 

LQADCCnNNFC TFnP l T 



stcmodemflags); 
sp_; 

DX___JL______U_«___ 



^ IImTERLuCkRIT 4 nTKul-n 



stcringlabed; 

60TOCIL4); 
LARL( IL3)i 



SPOUTCNOSYSTEMLINKj; 



L A BL(IL ^ ); 



FUN (EN ABLEMC OEM INTERRUPT)/ 
LOADC IM); 

win; __ 



sp_; 

desc(nothingtodo); 
TCCtQ); 



% 

-X- 



GOTO(HL) 



LABL(IM); 

HEAOING( M IM "#OiO#0,1)J 
DSH9 ♦ (IF RE A DERTOG THEN ? ELSE Q) 



20451000 
204b2000 
2045 J 00Q 



20*54000 
20455000 
20456000 



20457000 
20458000 
2 4 5 9 000 



20460000 
20461000 

?n<tfl?nnn 



20463000 
204o4U00 
204.5000 



20466000 
20467000 
20463000 



204o9000 
20469U80 



20469100 
20469UO 

- 2Q469U2 



204o9i20 
204691J0 

?Q4^9U0 



204/0000 
20471000 
20472000 



204^2100 
204^2200 
204^000 



20474000 
20475000 
gno7_nnn 



20477000 
20476000 
-04^9000 



20480000 
20481000 

2Q4B200Q 



20483000 
20484000 
204^5000 



20486000 

20487000 

-,0488000 



20489000 
20546000 
2Q5 U 7000 



20552000 
20553000 
20554000 



20555000 
20556000 
2Q56Q000 



20561000 
20562000 
2Q5 6 300Q 



4o' 
if 1 

4,1 









h 



10 

I » 

12 
13 
| 14 
15 
16 

» '7 
18 
19 

t 20 

21 

22 
, 23 

24 

25 
| 26 

27 

28 

i » 

30 

31 ~ 
, 32 



33 
34 

| 35 
36 

37 " 

( M 
39 

40 
| 41 
42 
43 ~ 



45 
46 

i " 

48 

«9 
I SO 



52 

I » 3 
M 

55 



% 



(IF punchtgg then 4 else: on; 



LABL(REAOYSTRING); 

HEADING("READY 
nS2(it w 3H30W)J 



S"»"T»ING "*0/0#2)J 



% 



IF PUNCHTDG THEN [)S2 ( 4" 30 32" ) ; 
IF PRINTERTOG THEN OS2C4"30 j 3" )> 
DS1(CR)J 






FILL M[*1 WITH 5n»2Uflt' ! )nQ»150< t >UV<^fipj 



FILL Ft*] WITH . Q5> . 1 »Q> ,4* 1 ,2» 1 .0* 
TF NOT RFAnFRTflG THKM MT31 is Oi 



IF NOT PUNCHTOG THEN Ml 5] » = Of 
IF NOT PRINTERTOG THEN MC4 j S* C> 
FACTOR :a 0; ___ 



FOR II «» STEP 1 UNTIL 5 DO FACTOR *» FACTOR + MCI 13 i 
IF LOC.AOORESS + FACTOR - 50 > MEMORY THEN Mf-1 .J i« 0# 



FACTOR J= 0; 

FOR II := STEP 1 UNTIL 5 DO 
I F M E II 3 X THEN F A CT O R 



X 

LOOP* 
FDR 



In FACT O R t F t 1 13 ; 



TOTAL J* 0; 
TI »B STFft 



1 UNTIL 5 DO TOTAt t* TOTAt ,".'♦ ■'■MI-JIll 



USE ...» * (FREE 
IF FREE < 10 



1 = (MEMORY 

THEN GO TU 



- LOC.AOORESS - 
DONE' 



total)) / factor; 



FOR II »» STEP 1 UNTIL 5 00 

' IF Mnil * THEN MCllJ I* 
GO TO loop; 



*Ul3 ♦ C F f 1 1 3 K usej; 



% 

DONE: 



IF FREE < THLN 
WHILE FRFfc < 



B 00 



BEGIN 
FOR 



II ** 1 STEP 1 UNTIL 5 DO 
IF MTin * THEN Mf Til *a 



MEH1 



-1J_ 



TOTAL t= 0; 
FOR II J= 
TOTA L 



FREE 
END 



STEP 1 UNTIL 5 DC 
T O TAL + M t ll j ; 



t* MEMORY - t-OC. ADDRESS • TOTAL; 



ELSE 



% 



M[3] i= MC33 + FREE - 1 



LABL(START0FS0FT8UFF£R); 

LOCATEfFREE is LGC. ADDRESS ♦ HlQiii 



LABLCENOOFSOFTBUFFER); 
LABLCSTARTOfKEYINRLlFFFRW 



LOCATE(FREE :* LOC.AOORESS + MC1J); 
LABL(ENOOFKEYINBUFFER); 



20503100 
20563110 

2 5 63 120 



20563130 
20563140 
20563150 



20SO3160 
20^63170 



20563180 
205O3190 
2b t >t\VjQQ 



205o4C00 
205*8000 

20^*8100 



205*8110 
20598120 
205981,30 



205*8140 
205*8150 
205*815? 



20598154 
20598156 
?059fllAn 



2O598W0 
205*8180 
20'5*H190 



20598200 

20598210 
20598220 



20598230 
205*8240 
2 0598 2 5 



20598260 
20598270 



205*8290 
20598300 
2059QU0 



20598320 
20598330 
20598 34 



20398350 
20598360 
20 59 83 70 



20598 380 
20598390 
20598400 



20598410 
20598420 
205*8430 



20598440 
20598450 
20 5984 60 



20598470 
20598480 
20596490 



20598500 
20598510 
20598520 



l?B' 
IJ'l. 



+J 
■V 
16 
"«, 
47 ' 
48 

:>0 
51 
6.7 



1 

2 
3 
4 

5 
6 
7 
8 
9 
10 



12 
13 

i M 
15 

16 
17 
18 
19 
20 
21 
22 



) 23 
24 

25 

I » 

27 

28 

I » 
30 
31 

! « 

33 
34 

35 

36 

37 ~ 

38 

39 

40 



i 41 
42 
43 



45 
46 

, »7 
48 
49 

I SO 
51 
52 

I 53 
54 



55 
56 



IF READERTOG THEN 

BEGIN 
— I AHI ( ST ANTIirrRHiiprf-m, 



LOCATECFREE Is LUC. ADDRESS ♦ M C 2 3 ) > 
LABLtENDOFCRBUFFER); 
fnd; 



LAB.LCSTARTQFSPOBUFFER); 

LQCATFfFRFF t= LflC.AnUHhSS 



LABLCENDOFSPOBUFFER) 
IF PRINTERTQG THEN 



+ MC J J 3/ 



BEGIN 

LABL(STARTUFLPdUFFER)i 
1 nCATFfFRFF Is I HP . AllUdi.- ss 



lablcenooftpbuffer); 
end; 



± mjiixt. 



IF PUNCHTOG THEN 
BEGIN 

,, . UA fl Lt START O FP U NCH i HUFF fc H); 



% 
% 



locate<memory); 
lablcendofpunchbufferj; 
end; _ 



END OF INITIALIZE SYSTEM; 



% 
X 



INTERRUPTCODE CONTAINS THt CODE TO HAnOlE ALL INTERRUPTS 
RFPFTvFn av ThF nr-mnti an.) thfm ^n^r , 



PROCEDURE 
BEGIN 



ISTERRUPTCOOEi 



REAL SEGMENT, 



LABLCIOm 



HEADINGC'IOO 



•%o#o>o,i); 



SPfll 



stcitevp); 
sencdatapresent); 

6 U T INQCTR A NSM l TUa£L)J 



GOTOINDCRECEIVtLABELM 
LARt CT01 )8 



HEADINGCIQl 



•#0*0*o, d; 



TF REAOERTOft THFH 



BEGIN 
SP4J 
STCTTFMP1? 



gotoccrinterrupt); 
end; 



IABLU02)J 



HEADING( M 102 



m #o»o#o,d; 



20598530 
20598540 
20598550 



20598560 
20598570 

?nS9ttSfln 



20596590 
2Q5V8600 
2099661,0 



20598620 
20598630 
20598640 



20bv8650 
20596660 
2Q59867Q 



20598&80 
20598690 
2059 6 700 



20598710 
20598720 
20598730 



20598740 

20593750 
- 3Q 5 9B760 



20598770 
20598780 
20598790 



20598800 
20599000 
20600000 



20601000 
20602000 
3060 3000 



20604000 
20605000 
20606000 



20607000 
20608000 
20609000 



20610000 
206U000 
gn6i2nnn 



20613000 
20614000 
20615000 



20616000 
20617000 
? n6iannn 



20619000 
20620000 
2Q621QQQ 



20622000 
20623000 
2Q62 4Q QQ 



20625000 
206<26000 
?n6.32non 



20633000 
20634000 

20 63 5000 



|4«| 
■»j| 
5u 
bl 
5? 

a I 

<>4 

ss 

5'J 



9 
10 
11 
12 
13 
14 



15 



20 



12 



24 
25 
26 



29 

30 
31 
32 
33 



34 



36 



38 



40 



43 



45 
46 



•8 



I 53 



IF 



PUNCHTCIG 
BEGIN 

— spa; — 



then 



STCITEMP);, 
GOTO(CPINTERRUPT); 



20636000 
206J6020 
2Jft 3ft QflQ 



20636060 
20636080 
2Q 6 J 6 220 



LABLC 103); 



H F A n I N R C " T 3 



",QtQ>Qtl)'f 



206J/000 

20036000 

■ 206,19000 



SP4; 
ST(ITEMP); 



spi; 
cis; 

sudn; 



20640000 
20641000 
206 3000 



soto (clear toseno interrupt ) t 

sri; 

soon; , 



20643000 
20644000 

■ ao o^ sooo 



GOTO (CARRIER INTERRUPT) J 
SHU 



20646000 
20647000 
20646000 



SRtl 

soo; 
G O TO(ioc»e?; 



20649000 
206b0000 
2 Q 6 5 1 00 Q 



SENCRINGRECEIVED); 

GOTO( INTERLOCK INTERRUPT); 

G0 T (RINGINTERRUPT U 



20656000 
20657000 
2Q658000 



ens; 
end of interrupt cod e-. 



20639000 
20660000 
30 OQ 1000 



% 



20662000 
20663000 
20 6 6 4 000 



% 

% 

JL 



% 

% 



THE NEXT PROCEDURE CONTAINS THE CODE WHICH IS USED TQ 
SEARCH FOR STRINGS IN DATA* IT WILL BE INCLUDED IF 
MULTI-CQnF CAJJD RFAnING IS.nFSIRfp BY THE USrR. IF TRF 



20663000 
20666000 
2 Q6O7Q0 



20668000 
2Q669000 
2 06/0 000 



:-%■■■■ 
% ■•-■■■■■■.:•■ 

PROCFnURE SCANNFRS; 



USER DOES NOT EXPLICITLY oPEClFy fc-IyHER BCL OR EBCDIC CODE 20671000 
THIS c^DE MLL BE L£KT OUT* ThERE„ Y E INCREASING THE 206/2000 

HLFFFR SIZES . , P06/ 3000 



BEGIN 



20674000 
20675000 
2 Q676Q QQ 



LABLCOEBLANK); 

HEADING("DEBLANK M *0#0/«0,1 >} 

nszfou ___ 

labl(dbreenter); 
spi; 

T(BiX); , 



206/7000 
206/8000 
20679000 



20680000 
20681000 
20682000 



LOAOXCO); 
SUB(CR); 

sazn ; 



20683000 
20684000 
20685000 



goto(dbend); 

sub(compresschar - 
sazn; 



20686000 
20687000 
20667100 



CR). 



GOTO(OBLANKSUP); 
SUBCBLANK - COMPRESSCHAR ) ; 

sa z ; , 



20687200 

206V0000 
20691000 



20692000 
206*3000 

20694000 



■iH 



h 

2 
3 
4 
5 



12 



15 
16 
17 
18 



20 
21 



i 23 

24 

25 
, 26 

27 

28 

I » 

30 

31 " 

I » 
33 



34 
35 
36 
37 ~ 



38 



42 



44 
45 
46 
47 
«8 



49 
SO 



52 



55 

i 56 



GOTOCDBNONBLANKO; 

BRM( IANDOi 
fiQTnC0BRLENTFF()» 



LABL(OBENO); 

HEADINfiC 



liBENO 



fOtOfU. 1 )i 



sof; 

gotoindcdeblank); 



LABt(DBLANKSUP); 
8RMCIAN0C); 

- — — brm(i a noo; 



brm( iando; 
g0td(d6rf.enter); 



LABL(DBNONBl»ANK)i 

HOFt 
GOTOIMDCDEBLANK); 



LABlCSCANFORDEUfcETtR); 
HEAOlNQChCAIM 



FQ","R l)£Liy"."t "TEH ">0)3)i 



DS2C0); 

LABLCSFDREENTER); 

SP1 \ 



TCB#X); 
LOADXC0); 

SUB(CR)* 



sazn; 

G0T0CSF0EN0); 
SUB( A SCU[ w ; w 3 - - 



crj; 



sazn; 

goto(sfdfquno)* 

bkm(ian d c3; 



GQTOCSFDREENTEK); 



LABL(.SFnFNn)t 



sof; 
gotoinocscanforceuimeter)' 



lablcsfdfounD); 
brmcianoo; 
rhf; 



GOTOINDCSCANFOKOELIMETEfO; 
l, AB L(CQMP A RESTRiNfi?i 



HEADING("CQMPARE W > M 
DS2(0)J 
[LRl fCSRETNTERI* 



3TrtIN<J"»Q,0,2)* 



spi; 

TCB#X); 
LHADXCO); 



T(0*X)» 
SUBX(O); 
■SA7I 



GOTOCCSNEQJi 
LOADX(l); 
SUPCC R)* 



sazn; 
goto(cseno); 

INCR(0*n>> 



206*5000 
20695100 
206*7000 



20698000 
206*9000 
2Q699100 



20^00000 
20701000 
2Q7Q 2Q 0Q 



20703000 
20704000 
20/05000 



20706000 
20707000 
207 06 000 



20709000 
20/10000 
207U000 



20712000 
20713000 

2Q7 1 4Q 00 



20715000 

20716000 

-20717000 



20718000 
20719000 
207?()Ono 



20721000 
20721100 
20722000 



20723000 
20724000 
207* 5 000 



20726000 
20727000 
207?R000 



20729000 
20730000 

207ainno 



20732000 
20733000 
20734000 



20735000 
20/36000 
207 370 00 



20738000 
20739000 
g Q7aOQQQ 



20741000 
20742000 
20743000 



20744000 

20745000 
-20746000 



20747000 

20718000 
2 Q 74900Q 



20750000 
20751000 



|?9 



45 
lit, 

r 
r\ 

■15 
5 (J 
E.I 
52 
53 
54 
55 
1 56 

3 



h 



2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 



13 
14 
15 



16 
17 
IB 
19 
20 



22 
i 23 



24 

25 



) 26 
27 
28 
29 



31 
32 
33 
34 
35 
36 
37 " 



39 



42 



brm(iandc); 
goto(csreenter)j 



lablccsend); 
sof; 

— — GOTO I NQ( COMPARE STRING); 



20753000 
20/54000 
20755000 



207 56000 
207S700Q 
2075 8 00 



LABLCCSNEQ); 
RQF.8 



GOTOIND(CnMPARESTRING)> 
ABLC UNno; 



20759000 
20760000 
2 07 610 00 , 



20762000 
20/6 3000 
207ftrt00Q 



HEAOINGC'I 
DS2(0); 

-$£24 



AND C"#Q*0#O,ii; 



INCR(8»B)j 

Tce»o; 

■SUBCBFFENO 



20765000 
20766000 
3 7 6 700 3- 



y 



saz; 

GQTOINDC IANCC Ji 
t„nan(RFFSTART)? 



20768000 
20769000 
20770000 



20771000 
20772000 
l773( 



-2Xb 



IQOO 



T(C#B); 
GOTOINDUANOC)' 



END OF SCANNERS, 



20774000 
20775000 
20776000 



X 



% 

% 



20 7 7 7000 
20778000 
20 7 790 



% 
JL 



LlNFPHlNTERREAOY CONTAINS THE CflPf WHICH QECIEOES wHAT TO OP 



WHEN THE LIKE PRINTER IS HEAD' (ON LINE). THE CODE CONTAINED 
HEREIN DECIDES WHEN TO FUl T*E LINE PRINTER BUFFER* WHEN TO 
QHnFR A PHUT OH FORM EXJJli ANU WHFN TU PRFVFNT USF Of THr 



30000000 
30001000 
■10002000 



30003000 

3000^000 
3Q005QQO 



% 

JL 



PRINTER. MULTIPLE FORMAT As WELL AS PRINT BEFORE AND PRINT 
AFTER ARE INCLUDED HERE. 



PROCEDURE 
BEGIN 



LINE.PRINTE.RREADY* 



30006000 
30007000 
IQQOflOOn 



RFAl SEGMENT 



30009000 
30010000 
3001 1000 



LABL(PRINTERCHECK); 
HFAhTNfir"PR^TFR"," 



CHErK ".o.o.gu 



30012000 
30013000 
30014000 



DS2(0); 

spi; 

LQADd.FSTATUS?* 



30015000 
30015100 
3Q015200 



RLU 

sann; 

GQTDfPRlNTFRl QJLKXDJJ 



30016000 
30017000 
3, 00 18000 



lablcnoprinteractivity); 

, HEAniNGCNO PRlN'V"TEK 



sen(prjntcycleoone); 
gotoino(pkintercheqk); 

SFHfLPMOTinKOflNF)! 



ACT '^ "IV IT Y »»Q>3)«. 



30019000 
30020000 
3 00 21Q00 



30022000 
30023000 
30Q240Q0 



goto i no (pr inter check)/ 

cla; 

s en( l perr)* 



G0T0(L0C+4); 

AD0(LP£RRBIT + LOCKBIT); 
SFN(FNQOFPAriE)i 



30025000 
30026000 
300 2 7000 



30028000 
30029000 
30030000 



pc 

111 

28 
'l 

■tir 
.I, 1 

T.'l 



44 ' 

■ir| 



-I 48 
■w 
i 

■)0 
CI 
52 

xS 



l-,Il 



I 8 

9 

10 

, " 
12 
13 
14 
15 
16 
17 
18 
19^ 
20 



23 
24 
25 
26 
27 
28 
29 
30 



G0T0CL0C+4); 
ADDCEOPBIT); 
STCLP S T A TL S ); 



ANDM(LPERRBIT); 

sazn; 

finTO(PfflNTALINE); 



spuutclpck); 

SPli 
FUNCLPCLE A R); 



LOADCLOCKBIT ); 

ST(LPSTATUS); 

GDTOTNnCPRTKTFhrm^TK^ 



LABLCPRINTERLQCKEOi 

hrAnTN(;f"HB T i\i T irK" P " 



FUNCLPCLEAR); 
SENCLPREADY); 

rtnTngoc+a) ; 



INTFRI H i H QCKEC ">0.3)i 



G0T0CPRINTERLQCKED2)J 
LGADCL0STATUS); 
A NPM(255 - LC C KBlTa) . J 



ADDCL0CKBIT2); 

ST(LPSTATUS); 

60T0IND(PRINTERCHECK?; 



LABLCPRINTERL0CKEC2); 

H FAnTNfif'PRTNTFR"," LUCKt-n".'", 



rli; 

SAN; 



">Q;3)/ 



% 



LQAD.(MQTIONDCNtBlT)J 
STCLPSTATUS); 



LABL(SETPRINTERNOTRLADY); 
HEADTNG( W SFT PR1"."NUR 



LUAD(LOCKBIT); 
STCLPSTATUS); 
SPflllTf LPNR)i 



Nfl",»T Rf AUY w »ntl)f 



% 



GOTOINO(PRINTEKCHECK)i 



LABL(PRINTALINE); 

HEADINGC 
FUNC L PC L E A R) ; 



'PRINT A"," LINE ",0>Q,2)i 



l0»d(printerf0rmatc0unt); 
saz; 

GOTO(PR l MTTHERUFf ER); 



SP2; 

LUAO(PRlNTEHQ)i 
T(C*X)J 



SUB(PRlNTERTAIL)j 

sazn; 

GnTniNDCPRTNTFRCHFCK)? 



SENCLPREADY); 
GOTQCSETPRINTERNDTREAUY); 
-C4JU 



iar; 

ADDR(X;C); 



30031000 
30032000 
3 Q0 J6 0Q 



30037000 
30038000 
10039000 



30040000 
30041000 

:icru2QQC 



300^3000 
30044000 
3QQ45Q0Q 



30046000 
30047000 
30U48000 



30049000 
30050000 
30051000 



30052000 
30053000 
30 5 4 



30055000 

30056000 

-300S7QQ0 



30058000 
30059000 
30060000 



30061000 
30062000 
3006 3000 



30064000 
30065000 

snoflftono 



30067000 
30068000 
"40069000 



3Q070QOO 
30071000 
10072000 



30073000 
30074000 
3Q075OOQ 



30076000 
30077000 
300 7 8000 



30079000 

30060000 

-40061000 



30082000 
30083000 
300 64 000 



30084100 

30085000 
30086000 



30087000 
30068000 
3 0Q9QQ Q Q 



30090005 
30090010 
3QQ90015 



2b'| 

Ml 

"I 

M 

X. 



42 
43 
J.I 
45 
46 
47 
48 
•i» 
SO 
El 
5 J 
53 
S4 
S5 

be 



__£? 



>r 



12 
13 

IS 
16 

t » 
18 
19 

, 20 
21 
22 



o 



} 23 

24 
25 
| 26 
27 
28 

> M 

30 

31 ~ 
) 32 
33 

34 
I 35 
36 
37 ~ 

, 38 



40 

i 41 

42 






49 






53 



55 



SUBCDESCENDCFLPBUFKFK))i 
SAiviN; 

riH T n (L0C + 6i i 



ADDCUES(STARTOFLPBUFFER)); 

ST(LFP); 

t,nAD(2?? 



ADDR(X»C); 
STCLRP); 

SUbfnFSCFMnr F i pru fffkh; 



SAWN J 
G0T0(L0C+6); 

Annfn F.sc STARinFi bbmeslhjuj 

ST(LRP); 

spi; 

i nAniNpfLFK); 



SP2J 

ANOM(IS); 

AnnfnFS( PRTNTFRrrTAR|>M II 



TCC/X); 

SPli 

i, riAnxf o)? 



STINDCtFP)! 
AN0M(J27); 
SA7J 



G0T0CL0C+16); 
LOADINDCLFP); 

AnniNDci.RPj j 



AN0M(15 ♦ 12g); 

stind(lfp)> 

-chjlj 

iar; 

stindclRP); 

G nT n ( t Qr»2u; 



LOADINDCLFP); 
SLi; SRi; 
SUBf STMfii FSPArn; 

saz; 

GOTOCLOC+ia); 
LQADTNnCl RPt: 



suB(ftfi); 
saz; 

■flWTfif | gr + ny 



STIND(LFP); 

iar; 

STTNQCLRP); 



loadindclfp); 
stcnextprinterfqrmat); 

SANNJ 



GOTO(PRlNTAFTEH); 

I.IIADINDfLRP); 

ANDM(15); 

cia; 
ST(PRTMTFRFnwMATrniiNT)f 

gotqcnormalprint); 



LABLfPRI NTAFTFRi: 



headingcprint 
loadindclrp); 

ANPHC15); 



A M ,"FTLR %0»0i2)/ 



3C0V002C 
300V0025 

ao nvooa o 



30090035 
30090040 
30090045 



3009005C 
30090055 
3QCJ9Q0ftQ 



30090065 
30090070 
10090075 



30U90080 
30U9010C 



30O9QU0 

30090220 
mogmnn 



30090400 
30090500 

inovriftno 



30090800 
30091000 

iQQ9?oon 



30093000 
30094000 
300V>00Q 



30095100 
30096000 
10097000 



300 9 8000 
300*9000 
1Q09910Q 



30101000 
30101100 
10101110 



30101120 
30101130 
3Q101HQ 



30101150 
30101160 
3Q10M7Q 



30101180 
30101190 
30101200 



30101210 

30102000 
amoannn 



3010400C 
30105000 
30106000 



30106100 
30107000 
aoioaono 



30109000 
30110000 
3011100C 



•30H2000 
30113000 
3QU3 100, 



i 






i if. 



CIA; 30114000 

STCPRINTERF CRMATCUUNT); 30115000 

y. C-LAJ . 101 16000 

STINDCLFP); 30117000 
IAR; 30118000 
STINP(LRP); - - - — — . 30119000 



13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 



GQTO(PRINTIT)) 301-000C 

30121000 

LABLCNtlHMALPRTNT); . 30.22000- 

HEADINGC'NORMAL ", "PRINT %0,0#2)i 30123000 

SP2; 30124000 

— LO A O(LRP); — — 30125000 

ST(LPLIMIT); 3G1-501C 

LOADINDCPRIMtHU)' 30130000 

S__i _ ___________ , , _ — _____ 30131000 

SUBC5); 30134000 

SAZN; 30135000 

GOTnCPRlNTNOBUFFER); 30136Q0Q 



ADDC5); 30137000 
ADD(PRINTEKQ); 30138000 
4JLRJ _ 3 Q 13 810C 



STCLPPQINTER)/ 4 30139000 

SUBCOEStENOOFLPBUFFER))/ 30 13V 100 

S A NNj _ 30139130 



30141000 

LABLCLQADPRINTCHAR). 30142000 

. : HEADIN6C"LQAL) A "."PRINT C"»"hAR " » . 3 ) i , 30 14 3000 



GOTO(LOADPRINTCHAR); 30140100 

30140110 

L A BU L PhR A P A R QU NOJ 3&U012Q 

pSn HEADINGC'LP WRAP'S "AROUND %0*0»2)J 30140130 

N ADDCDESCSTART0FIP6UFFEK)); 30140190 
17 ■'■■■ ■ - — — ST CI., PRO INTER); , , , . : 30140200 

28 
29 
30 

"' CLA; 30U4000 

m SPi; 30145000 

ps BRMCFETCHPR [MTCHAR.J - 30146000 

1 SUBCCUMPREb-CHAR); 30147000 

* SAZN; 30148000 

M | , fiOTOCEXP AND PRINT Eh. ATAJ. , , 30U9flnn 

P1 ADO(COMPRESSCHAR); 30150000 

" BRM(PRINTERTRANSLATE)* 30151000 

^ s RT_(LPQAT_n . 301,4000 

N GQTOCLOADPRlNTChAR); 30154200 

41 

42 
43 



30155000 
UBLtFETCHPRlNTChARU — - 30156000 



HEADINGCFETCH P"# M RIhT Ch"> M AR %0*3)J 30157000 

0S2C0); 30157100 

1461 ___J : 30156000 

*" * 30158100 

LABL(FP); 30158110 

M LPAD(LPPQINTER)J ________) 

1 OECR(C»C); 30160000 

*° ST(LPPOINTER); 30161000 

51 SuBflPLlMTTU , . ^ni6_nnn 

52 | SAZNj 30163000 

53 GOTOCPRINTNCBUFFER); 30164000 

M DE SC C STAR TCI FLP BUFFER?- 30164150 

55 SU8.LPP0INTER.J 30164152 

SUB(l); 30164154 

~S__1 _- — 30164156 



4» 



9 

10 

12 
13 

> '« 
15 

16 

> " 
18 

19 " 

| 20 

21 

22 
) 23 

24 

25 
) 26 

27 

28 

I » 
90 
31 ~ 



|| 32 

33 

34 
k 36 
36 
37 ~ 

\ 38 

39 

40 

42 

43 
I 44 

45 

46 
I « 

48 

49 



ID 



52 
53 
54 
55 
56 



GUT0(EXITFETCHPRINTCHAHJ; 

DESC(ENOOFLPBUFFER); 

STfl PPOTNTER); 



GOTOCFP); 
LABUEX I TFETCHPRINTCHAR); 



SP1> 

LOADIND(LPPCIMFR)/ 

GOTOINDCFErCHPHlNTCHArO; 



LABL(PRINTNOBUFFER); 
— HEADING ("PR tJO— MJUHD- 



sp2; 
luadindcprimerq); 

SUM , 



BUFF£"»"R 



'■n t 3)i 



aodcprinterq); 
iarj iar; 
t<c > x); 



subcdescendcflpbuffer) a 
sann; 

gutq(lp u pdate)« 



A0DCDESCSTART0FLP6UFFER)); 

T(c#x); 



LABLCLPUPOATE); 

HEADlNGCuP 

tcx^cj; 



UPDA'^TE 



**0*0#2)i 



ST(PRINTERQ)J 
SEN(LPREADY); 
fi§Tn,(S£TPRTMERNOTRFAnY)t 



GDTOCPRINTIT); 
LARLfFXPANnPRTNTFRnATAli 



HEADING("EXPAND 

BRM(FETCHPRlNTCHAR); 
f-TAl 



W #"PRINTER"#" DATA «,0>3); 



STC PR IMERICCP CONTROL^ 
BRM(FETCHPRINTCHAR); 
RRMf PRTNTFRTRANSI. ATF); 



tcc*a); 
T{ a » c ) ; 

SEN(LPnATARFAHY); 



GaTQ<|_0C-2); 
BTUCLPOATA); 
iNCREHFNT (pRIiMrERLIJQPCUHTRUL); 



saz; 

G0T0(L0C-J4); 

GQTQfl flADPRTluTCHARU 



LABLCPRINTTHEBuFFER); 
, HFAnTNflf PRTNT 



T%"HE BUFF%"rR 



SENCLPREAOY); 
GOTO(SETPRINTERNOTREAOY)* 



"rO»m . 



LABLCPRINTIT); 

HEADINGCPRIN1 IT"# 0* 0* U, 1 ; ; 
&PJJ 



loao(lpstatus); 

sri; 

sli; 



30104160 
30164170 

ao i fta xao 



30164185 
30164190 
30164200 



30164210 
30164220 
3 1 4 23 



30165000 
30166000 
^nlftZOQQ 



30175000 
30175100 
3 Q 176QQQ 



30177000 
30177100 
30178000 



30179000 
30161100 
30 1J1 U0 



30181120 
30181130 
30lail 4 



30181150 
3016U60 

30 18 U7Q 



30181180 
30183100 
.10183200 



30190000 
30191000 
■HOI VPOOQ 



30193000 
30194000 
30203000. 



30203000 
30204000 
30209000 



30206000 
30207000 
3Q208OQQ 



30211000 
30211100 
30213000 



30214000 
30215000 
3081600(1 



30217000 
30216000 
3Q2j9QQQ 



30220000 
30221000 



30223000 
30224000 
302*5000 



30226000 
30227000 
3. 02 2800Q 



W 



iar; 
st(lpstatus); 

J&rU 



rli; 

RL1J 
SANj 



G0TU(PRlNTERLAb2)* 
LOAD(PAGESKIP); 
B T Q CLPF Q RM A T} J 



cla; 
iar; 

STCUPSTATUS)j 



GOTQINDCPRIMERCHECKj; 



L AB L CPRINT E R I .AB8); 



HEADiNG(°PRlNTER M #" 
t,OAD{NEXTPRlNTERFORMATj; 
SllRf SINGLE SPACE?; 



L*B2 ">0*0>2)i 



SA.2J 

GOTQCLOC+17); 



load(prlnterformatcount); 
soon; 

flnTncuoc*i2)j 



sann; 
iar; 

nop; 



rri; 

ST.( PR INTERFORMAT COUNT); 

i nine noiiRLE spAr.E); 



STCNEXTPRINTERFORMAT); 
l.nAnCNEXTPRlNTFRFORMflT )/ 



BTOCLPFORMAT); 

INCREMENT (PR I NT ERFQRMATCOUM); 

GOTOTNn(PRINTFREHFrKH 



% 

% 



% 

% 

JL 



FNO OF 1. TNIF PRINTFR RFAHY: 



302*9000 
30230000 
30 2 3,1000 



30232000 
30233000 
30^4000 



302J5000 
30236000 
30? 37000 



% 



LlNEPRlNTERTABl.F CONTAINS THE SPECIAL FORM ASCIW67) TD BCL 



EXTERNAL TABLES NEEDED BY THE HQUTINE PHI ivTERTRANSLATE TG 
CONVERT THE ASCIU67) INPUT INTO PRlNfEO OUTPUT. 



PROCEDURE LINEPRINTERTA8LES; 

BEGIN 
RFAl SFfiMPMT; 



LABLCLPTABLE); 
HFADlNfiCL P TA BL "f"F 



M iQ»Qf2)f 



FILL ATEMPC*] WITH 

a g 1 On C F 3 1 » > U » 1 F 3 20 8 1 3 * > fl w ? «M 4 C 3S ** « 



30238000 
30239000 
302a0000 



30241000 
30242000 
30?4HOOQ 



30244000 
30245000 
30?flftQ0Q 



3024/000 
30248000 
302 4 9.000 



30250000 
30251000 
3025?Q0Q 



30253000 

30254000 
30?55Q00 



30256000 
30257000 
30258000 



30259000 
30260000 
30261000 



30262000 
30263000 
30264000 



302O5000 
30266000 
3 0267QQ Q 



30268000 
30269000 
30 370000 



30271000 
30272000 
1027:1000 



30274000 
30275000 
3 0276000 



30277000 
30278000 
302 790 00 



4 H 30 362F37"*i^30 382D39"#4"2C2l3A22 , ^* 

4 M lB232024"*4"3B25ll26»*4 f 'UA2/0128"# 
4"0P? 90 3f 9".Zi"04i lQSia",a"06 1 ^C/ 1 ^>t. 



30280000 
30281000 
30261010 



4 W 08170918 N *4 ,, 00192E3C"*4 ,, 3E?A101E ,, # 
4-6E1A003F"; 



30281020 
30281030 
30281040 



30281050 
30281060 
3028 1070 



>J 



u 



I" 



to 
11 

12 
13 
14 
IS 



16 

I "7 

18 
19 

i »>; 

21 

22 
| 23 

24 

25 
, 26 

27 

26 

I » 
10 

31 

| 92 

33 

34 

) 35 

36 

37* 
| 38 

39 

«0 
| 41 

42 

43 



45 

46 

I « 
48 
49 

I 50 



51 
52 

I a 

54 

55 
I 56 



FOR II t- STEP 1 UNTIL 15 UO L)S« ( A TEMP [ I I ] ) ; 



% 
4L 



UABL(PRINTERCCTABLE); 

HEA0IN6( W PRINTER"#" CC TAB","tE 



30281080 
30261090 

a oa m o . Q Q 



n ,o*3); 



for ii »= i6,o*i6»QM2a*i6«ia e o o osuin; 



302*0000 
30291000 
30?92000 



END OF LINE PRINTER TABLES; 



% 
% 



30293000 
30294000 
30 2 95000 



LINEPRINTERSTQRAGE RESERVES THE STORAGE LOCATIONS NEEDED 
TO H A NDLE ThE -L- UME PRlNT E H . 



procedure lineprinterstorage; 

BEGIN 



real segment; 
labl(lpstatuS); 

HEADINfiC M l P .STAT w t"US 



■t&tfti'gW 



DSico); 

LflBLCPRINTFRTEMP); 



HEADINGt^PRINTER"," TEMp 
DS2C0); 



"#0»0#2)J 



LABL(LFP); 

HEADINGCLFP 
0S2(0); 



",o*o*o, i ); 



LABL(LRP); 



HFAniNfifLRP 



w *o » o»o ,i j; 



DS2C0); 
LAR1. (NFXTPRINTERFCRNAT); 



heading( m next pr m , h int for", "mat 
dsko); 



",0,3?; 



LABLCPRINTERFORMATCUUNT); 
HEADING("F0RMAT 
D5U0)i 



', "COuMT ",0,0,2)' 



LABL<PRINTERL00PC0NTR0L); 

HFADlMfir»PRTNTFR«." 



LOUP C»."flNTROL ".fl.3)i 



dsico); 

I, ARLCLPPOINTER?; 



HEAOINGC'LP POlN^, M TER 
DS2(0>; 



">o>o,2>; 



LABLCLPLIMIT); 

HEADINGC'LP LI.MI","T 

, DS2C0); 



",o,o,2); 



% 

X 



FNH OF LINF printer storage; 



X 

X 

JL 



X 

X 



CARD R F A nERl NTE -RRUPT CONTAINS THF COOF TO HANDLE 



A CARD READER INTERRUPT. IF THE INTERRUPT WAS 
CAUSED BY DATA READY THEN THE COLUMN IS STORED IN 
CARD READER BUFFER ARE A (CftMuFFER ) . L£ 



30296000 
30297000 
3029 80 



3029*000 
30300000 
3030 1 00 



30302000 
30303000 
1 030 40 00 



303Q5000 
30306000 
^0306140 



30306150 
30306160 
30306170 



30306180 
30306190 
30 3 U62QQ 



30306210 
30306220 



303U6240 
30306250 
3Q3070OO 



30308000 
30309000 

io3i onoo 



30311000 
30312000 
30313000 



30318000 
30319000 

3o32oono 



30321000 
30322000 
3Q323Q00 



30324000 
30325000 
3Q3260QQ 



30327000 
30328000 
3Q3«i9QOO 



30330000 
30331000 
3Q332 0QQ 



30333000 
35000000 
35O01QQ0 



THE 
THE INTERRU PT 



35002000 
35003000 
3 c iQQ4flQ0 



-V I, 



h 






1 

2 
3 
4 
5 

6 
7 
8 
9 
10 



12 
13 

I ,4 
15 

16 

18 
19 
20 
21 



22 

) ° 
24 

25 

I 26 
27 

28 

I » 
90 

31 T 

I »'■' 
33 

34 

i * 

36 

37 " 
38 



39 
40 

| 41 
42 
43 

: 44 
♦5 
46 
47 
« 
49 
50 



52 

; 53 
54 
55 
56 



*L 



X 
% 



WAS ANYTHING ELSE, THEN PKUpEK ACHON FQR HEADER 
NGT READY. QR END OF CA«D I/O ARt" 1AK£\. 



PROCEDURE 
BEGIN 



% 



cardreader Interrupt; 

— — REAL SEQMPNTi 



lablccrinterrupt); 
— : he a din g c"Uru 



RE" # w AU ». r< U%"'lERrtgPT%0*3); 



IF HIGHSPEEDREADERTUG THEN 
BEGIN 



spi; 

BriCREADHlGHSPEED«EAOF.RSTATUS); 
STfCRSfRATf:i-H 



ANDM(CRTBIT); 
SA2N; 

finTfuior-t-7); 



cla; 
stccrstatus); 

E N S J 



LOAD(CRSCRATCH); 
ANDM(NOTREADYBlT 

s-azi : 



+ EOFBIT + FEtDCHfcCKBIT); 



GOTO(EMPTYCAHDREADERHCPI»ERJ> 
LOAD(CRSCRATCH); 
ANDMCCRFRRHRBIT); 



saz; 

GOTO(READCHECK); 

i nAncnftSTiTijsn 



SOD; 

ens; 

UU nc CRB U FFFU LI . B lT )J 



STCCRSTATUS); 

ens; 

-END 



else 

BEGIN 



SENCCRDATAREADY); 
GOTO(CaRDREADEHINTERRUPTNOTOATAREADY); 

spu - ; ; : __ 



load(crcount); 
sazn; 

GOTO(RE A DCHECK) ; 



iar; 

ST(CRCBUNT); 
L O A D(CR S T A TU S ) i 



AN0MC255 - CRFlRSTelT); 

STCCRSTATUS); 

SP2J 



bticcrread); 

SUB) 
BTICCRREAD)? 



stindccrpointer); 
loadccrpointer); 

I ARi 



iar; 
stccrpointer); 

fns; 



35005000 
35006000 
3 50 7000 



35008000 

35009000 
35Q1QO00 



35011000 
35012000 
3 50 1300 



35013100 
35013H0 
350ni20 



35013130 
35013140 

350 13150 



35U13160 
35013170 
35013180 



35013190 
3501J200 
3 50 13 210 



35013220 

35013230 

- 350 13 2 /1 



35013250 
35013260 

35QJ 3270 



35013280 
35013290 
1SUU292 



35013294 
35013296 
3501 3300 



35013310 
35013320 
31011330 



35013340 
35013350 
35OUQO0 



35015000 
35016000 
35017Q00 



35018000 
35019000 
3 50 2 00 00 



35021000 

35022000 

-^ 50 23 00 



35024000 
35025000 
350g60QO 



35027000 
35028000 
3 50 29000 



35030000 
35031000 
35032000 



3503 3000 
35034000 

35Q35onn 



hi/ 

w 

■47 1 

4<)| 

4» 



1 

16/1 



h 



10 

11 

12 
13 
14 



16 
17 
18 



20 

21 



23 
24 
25 
26 
27 
28 



29 

30 
31 " 
32 
93 
34 
35 
36 
37 " 



40 
41 
42 
43 



48 

49 

I 50 



i S3 



55 



lablccardreaderj.mekruptnotdatahe.ady); 
h e ap ing ("h ea d e r " , . " 1 ntf rrt/v pt 



N U T %" UA T A 



-UIX 



35036000 
35OJ7000 
3 5 36000 



FUNCCRCLEAR); 
SP1J 



35039000 
35040000 
35 04 1000 



LQADCCRSTATIS); 
ANOMCCRFIRSTBIT); 
SA7? 



GOTOCEMPTYCAROKEADERHQPPER)' 
LOADCCRCOUNT); 

SA7? 



35042000 
3504300C 
35044Q0Q 



35045000 
35046000 
350ft7Q00 



GOTQCREADCHECIO; 
LOAD(CHBUFFFULUBIT); 
.ST(CRSTATUS); 



35048000 
35049000 

35050000 



ens; 
end; 



35051000 
35051100 
35052000 



LABLCEMPTYCARDREADERHOPPER); 

HEADING( ,1 EMPTY c%"aru 



REA"* M DER HUP"# M PEK 



'fkli 



35053000 
35054000 

35"5 5 QQQ 



PRECISION »* Xi 
IF HIGHSPEEDREADERTUG 
BEG I N 



THEN 



35056000 
35056*00 
3505AHQ 



FU N( CLE ARH I GHSPEE DREADER)' 

ANDMCFEEDCHECKBIT); 

SA?Nj 



G0T0CL0C+6); 
10AD(N0TREADY8IT)I 
G0T0(L 8 C»4); — - 



35056115 
35056120 

35 0b 6 l 3 Q 



35056140 
35056150 
3 50561 6 



LOAD(CRBUFFFULLBIT); 

END 
E L S E . __ 



35056170 
35056180 
350^6190 



BEGIN 

LOAD(CRSTATLIS)i 
ANDM(CRSUPRESSNRMESSBITi; 



addcnotreadyeit), 
end; 

STfCR.STATl.l5); 



35056200 
35057000 
350^7100 



35057200 
350b730C 
T)OfiO00Q 



ens; 



LA8L(R EA DCHECK) ; 



35061000 
35062000 
35063000 



HEADINGCREAD CH'VECh 
PRECISION ?s 1/ , 



",Q,Q,Z)> 



35064000 
35065000 
350 66 0Q O 



fun(crclear); 

LOAD(LOCKBIT); 
STCCRSTATWS); 



3506FOO0 
35068000 
35Q690Q0 



XNH- 



spuutccrerr); 
ens; 
df card reader 



interrupt; 



35070000 
35071000 
35O7?OQ0 



% 

X 

JL 



PJOCEDURE CARDREADERNOTREAUY CUNTAlNS THE CUPE TO SPOUT 



35073000 
35074000 
35075O00 



% "CR N01 READY" ON THE $PU 

% 

PROCEDURE CARDREADERNnfREADY; 



350/6000 
35077000 
35078000 



BEGIN 



REAL SEGMENT. 



35079000 
35080000 
350&1000 






1 

2 

3 
4 
5 
6 
7 
8 
9 
10 
11 
12 



13 
14 
15 



16 
17 
18 



19 
20 

21 



22 
23 
24 



25 
26 
27 



28 
29 
10 



31 

I w 

33 
34 
35 

36 
37 " 
38 
39 



42 



46 



49 
SO 



53 
54 



55 
56 



Q. 



LABICCRNOTREADY); 

HEADINGC"CARU 
PRECISION ig U 



RE%"AOi:K ,\JQ%"T READY", o»3j; 



35062000 
35083000 



SANi 

ftntnn nc*rw 



35085000 
35066000 

35Qfl7oon 



sri; 

STCCRSTATUS j; 
GQTO(TKSTCP); 



35087100 
35087200 
350 8 7 3 00 



LOAD(CRSTATUS)i 
ANDM(CRSUBRESSNRMe5.SBIT). 



saznj 

QOTOCLQC+fl); 
L O A O(LOCKBIT) ; 



35008000 
35068100 
35088200 



ST(CRSTATUS); 
GOTO(TESTCP)i 
SPnUTCCRNR); 



35088300 
35068400 
350 66 5 



35088600 
35088700 
35089000 



spi; 

UQAD(LaCKBIT); 
STCCRSTAT US ); 



GOTO(TESTCP); 
END OF C A Rn RE AD ER NOT R EA DY* 



35090000 
35093000 
3509 4 



35095000 
35096000 
35097000 



% 
% 

JL 



CARnREAOERNCTREAQY CCiN'lAlHS ThF CDPfc. TU DETERMINE 



35098000 
35099000 
ulOO< 



35-: 



1000 



% 

-X- 



IF A CARD 
SHOUUO BE 



I/O CAN BE 
PRINTED ON 



JiTARTEo, OR IF ANY ERROR MESSAGES 
THE SUPERVISORY PRINTER? 



PROCEDURE CARDREADERREADY; 
BEGIN 

real segment; 



35101000 
35102000 
35 1 U 3 000 



35104000 
35105000 
35106000 



uablccrreaoyj; 

— HEADINfiC'CARn RS"»"AUER RE"#"aDY 



w »0«3); 



35107000 
35108000 



DS2(0); 
SPI? 



loadccrstatusw 
Sann; 

■ ftftTtKCftNflTREIQY-)! 



35110000 
35111000 
^llUOfl 



soon; 
goto(testcp); 

RRH 



35111200 
35111300 
35111400 



soon; 

GOTO(MOVECRBUFFER); 



35112000 
35113000 
35114Q00 



rli; 
su; 
sann ; 



35115000 
35116000 
SSlUOOQ 



goto(cardreaoerlockeo); 
larlccaroread fr s ur t tok 



35118000 
35119000 
35UQ00Q 



HEADINGC'CARO RE%"A0ER ST'V'ART WQ",0>3)i 



35121000 
35122000 
35123Q0Q 



SP2< 



DESC(CRBUFFER)i 
IF HIGHSPEEDREAOERTOG 
BEGIN 



35124000 
35125000 
3512 60 Q 



THEN 



35127000 
35127100 
15127110 



>r 






I 17 
18 
19 

20 

21 
22 
23 



24 
25 



i 28 
27 
28 
29 



34 
i 35 



36 
37" 

I 38 
39 

40 

I «1 
42 



t 50 



La) 

I/O 

J) 



52 



55 
56 



BTQ(LDADDMAO); 

swa; 

RTfULOAIiriMU y, 



END 
ELSE 
STfCRFQlNTER)J 



spi; 

IF NOT HIGHSPEEOREAOERTQG 

UMM 



THEM 



10ADC-80); 
ST(CRCOUNT); 

-mm 



LOADCCRSTATUS )i 
ANDM(CHSUPrtESSNRMESSHI T)/ 
■AD O CCHF I K S TBIT * B U SYdlTjf 



st(crstatus)/ 

cla; 



. IF..HIGHSPEEDREADEKTUG THEN KuN ( CLEARHIGHSPEEDREADER ) ELSE 
FUN(CRCLEAR)i 
TF NOT HTfiHSPFEDRE al iERTfir i THf . h i 



BEGIN 

FUN(CRINITIATE); 
FUN(ENARLE6R INTERRUPT 3 i 



END 
ELSE 
BEG i N 



bti(readhighspeedreaderstatus); 
san; 



LOAD(CRSTATUS)i 
ANDMCLOCKBIT + L0CKBH2 
AnRfNnTHFAnvpTT^l 



+ CKSURHESSNRMESSaiT); 



ST(CRSTATUS); 

GOTOIND(CRREADY); 

FUNf TNITlATFHrGHSP FEnREt\DEH)i 



funcenableh 1 6hspeedreauer i interrupt ); 
end; 

GDTnTNn(f:Rwr MTLLi 



lablccardreaderlqcked); 

HFADINGf'CARD 



IF NOT HIGHSPEEDHEADERTCG 
FUN(CRCLEAR); 

BJ-JJ 



RF»,"ADLR 1 tl".wr.KF H H .Q,3)i 



THEN 



JUL 



SANNJ 

6OTO(CARDREA0ERL0CKED2); 
HlGHSPFFnRFAnFnTMfi TMFN 



BEGIN 

BTI(READHIGHSPLEDREADERSTATUS), 
SANNJ 



END 
ELSE 

SENtCRONLINFU 



,.G0TP.(L0C + 4); 
GOTOIND(CRREADY); 



L0AD(L0CKBIT + L0CKBIT2); 
ST(CRSTATUS); 

GnTncNnfcRRFArm; 



35127120 
351^7130 



35127150 
35127160 
35128000 



35129000 
35129100 
35 U9U 



35130000 
35131000 

351 31 1 00 



351 32000 
35132100 
3 51 3 22 



35133000 
35133100 
351 3*200 



35134000 
35134010 
Vi 1 ,1 4 1 C) Q 



35134U0 
35135000 

351 3ft OOP 



35136100 
35136H0 
351 36120 



35136122 
35136124 
151 3*126 



35136127 
35136128 
3513.6129 



35136130 
35136131 
3S136H? 



35136140 

35136150 

35137QQQ 



35138000 
35139000 
35140000 



35141000 
35141100 
35142000 



35143000 
35144000 
35144100 



35144H0 
35144120 

35 i4,a no 



35144140 
35144150 
35145000 



35146000 

35147000 
35 1480 00 



35149000 
35152000 
33153000 



■13 

141 



ift 

'iO 



i-.r 



k 



2 
3 
4 
5 
6 
/ 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 



25 
26 



27 
28 
29 



30 
31 ' 
32 
33 



34 
35 



36 

37* 



38 
39 
40 

41 
42 



43 



45 
46 
♦7 
•8 



49 
50 
51 
52 
53 
54 



55 
56 



LABLCCARDREADERLCJCKtD2>; 



HE A DINGCCAWb RE" » "A0 L H L U "# M CKE0g ",0*3); 



IF HI6HSPEEDRFADERTUG THEN 

BEGIN 
— RTI(READHIfiHSPFEDREAnER.STATUS); 



35154000 
35155000 
3 5 15 6Q C 



35157000 
35157010 
3 5 157020 



sann; 

END 



ELSE 



SEN(CRONLINE); 
GOTOIND(CRREADY); 

GOTOCC A RDRE A DEHSTARTiajJ 



35157030 
35157040 

35 1 57050 



35158000 
35159000 

3 5160000 



END OF CARD READER HEADY; 



% 

% 



35161000 
35162000 
35 163 00Q 



PROCEDURF MQVEIT CONTAINS THE CODE TO MQVE A CARD 



35164000 
35165000 
i!66( 



-35- 



iQOO 



% 
X 

-X- 



IMAGE FRQM 
COMPRESSES 
ST A ND A RD FORM FOR BL A NK 5 Li PR ESS£ P D ATA . 



THE CARDBUFFEB TO A 
ALL RUNS UK FIVE OR 



DATA 
MORE 



AREA. 

Blanks 



THIS CODE 
INTO THE 



ALSO 



PROCEDURE 
BEGIN 



caroreader^cver; 



real segment; 

LABL CMQVECR B UFF L Hii 



HEADINGC'MOVE 
PRECISION »s i; 
IflADfrRFl AGS); 



CR' 



BUFFER H »0*0*2)i 



ANDM(CRSCANBlTi; 

saz; 
gotoccrrfstahtscan)/ 



SP2; 
LOAD 
SUBC 



ccardreaderq); 

CARDREADfRQTAlL); 



CIA; 

iar; 

SAlNi 



goto(testcp); 
spi; 

LQ ADf-79) ; 



ST(CRCQUNT); 
LOAD(CRSCANBlT); 
ST(CRFLAGS)? 



cla; 

st(crsupresscount); 
SP2; 



descccrbuffer); 

DECR(C#D); 
IQADCCARDREADEHQTA 



JXX 



st(crpointer); 
goto<loc*s>; 



labl(getnextcardcdl); 
headingc m get 



NEX%"T CARD %"COl 



•%o*3); 



iar; 
skcrcount); 

I NCR(D»X); 



35167000 
35168000 

3 51 6 9000 



35170000 
35171000 
i!7?( 



-15- 



'oon 



351/3000 
35TM000 
35 175000 



35176000 
35177000 
^5177100 



35177U0 
35177120 
35177130 



35177140 
35177150 
35177 1 60 



35W7I62 
35177164 
35177170 



35177180 
35177190 
35181000 



35182000 
35187000 
35lfl80n0 



35186100 

35189000 

-351B901Q 



35199000 
35200000 
352J0100 



35200200 
35201000 
35202000 



35203000 
35204000 

354 U 50Q Q 



35206000 
35207000 
3 5209000 



,7< 

Pi 
"M 






,.171 
4tl| 



l55| 
"S6 
57/ 



h 



13 



16 
17 
18 



19 
20 



21 



23 



26 
i 26 



27 
28 



29 

30 



34 
35 



36 
37 " 

I M 

39 

40 

I " 
42 
43 



46 

| »7 

(8 



«9 
I 50 



52 

I 53 

54 

55 

I 56 



*1 



IF highspeedreadertcjg 

TCX»0) 
ELSE 



THEN 



INCR(X*0); 
IF HIGHSPEEDREADERTUG 
BEGIN 



THEN 



SP1 
END 



ELSE 



BEGIN 
SP2J 

end; 



loadxco); 



I F HIGHSPE EQ R EAD ERT Q G J-HE-N- 



8EGIN 
sann; 

GHTnf TNVALIDCARnCHAR M 



AN0M(127); 
END 
ELSE 



BEGIN 

rri; 
soon; 



AD0(2047); 

Rua; 

ST(CR.SCRATl'h)J 



ANDM(65A08); 
TCZ»A)i 
SA2N; 



GOTQCLOC+10); 
INCRCAtA),? 



sann; 

G0T0CL0C+5)* 
SLU 



G0T0CLGC-6); 



saz; 
gqtocinvalidcakdchar); 



load(crscratch); 

ANDMC15); 
AOO(CUWR£NTCARUTAB| ,E ); 



tcc#x); 

LOADX(O); 

SANN! 



GOTOCCHECKFQRINVALIOCHAH)/ 
S R8 J 



ADDCDESCCRTABLEm 

T(C#X); 

ADPR(A»X)j 



spu 

LOADX(O); 
SANN? 



GOTO(INVALIOCARDCHAR)/ 
ENDJ 



35209100 
35209110 



35210000 
35210100 
35 2 10105 



35210H0 
35210H5 
3 S21Q1 2C 



35210130 
35211000 
35 2 M1 1 



35212000 
35213000 
3 52 1 31 00 



35213110 
35213112 
3521311ft 



35213120 
35213160 
35213170 



35213180 
35214000 
15215000 



35216000 
35217000 
3SJ?1«000 



35219000 
35220000 
152? 1000 



35222000 
35223000 
3bgi2 4Q Q0 



35225000 
35226000 
35227000 



35228000 
35229000 
352J0QC0 



35231000 
35232000 
35 2 3 3 QQQ 



35235000 
35236000 
35236000 



35239000 
35200000 
35241000 



35242000 
35243000 
352 44 Q 



35245000 
35246000 
3524*000 



35248000 
35249000 
3525Q000 



35251000 
35251100 
35252000 



■1J 



v 



14 ' 
1h 
4fi| 
'C ' 
18 
»[> 
■SO 



>r 



1 

2 
3 
4 

5 
6 
7 

8 
9 

10 
11 
12 



13 
14 

15 



16 
17 



19 
20 



21 
22 
23 



25 
26 



27 



28 
29 



30 

31 ~ 

32 

33 

34 

35 



36 



39 



40 

41 
42 



43 



16 

47 

« 



«9 
50 



53 



55 



LABL(STORECARDCHAR)# 

HEADING ("STOKE 



C'/'MRU CHA"/"H 



'#0#3j; 



8rmcst0recrchah); 
spi; 

KBLANK.U 



f»UB< 



SAZi 

GOTOCMAYBEENCOFCRSUPREbSiaNJ; 
LOAO(CRSUPRESSCOUNT); 



saz; 

GOToaoc+9); 

SP2? 



LQADCCRTEMP); 
STCCRFIRSTSPaCE); 
SPI,? 



cua; 

SUBC5); 

sazn; 



GOTOCINITIALIZECRSUPRESSIGN); 
ADDC6); 

ST(CRSUPRESScnUNT>; , 



LABUTESTFORCROONEii 

HpAnTMr,f'*TFST 



rn»."R _h nn"."n-F 



w ■ Q t 3 ) i 



spu 

|„nAD(CRCnUNT). 



saz; 

gotocgetnextcardcod; 

lO-fUCRSUPRESSCOUNT); 



sazn; 

60T0(MAYBEEN00FCHSUPRtSSIDfi- ; 

_sa_j 



UIAD(CRFIRSTSPACE); 
STfCRPOINTER); 

finTnctonALTE'-iTFnRf w oniME); 



lablcmaybeenoofcrsupre&sionj; 
headingcmayhf f " * " n tj 



35253000 
35254000 
_____( 



-15- 



iOOO 



35256000 
35256200 
35259000 



35260000 
35261000 
3 526 2 



35262100 
35262110 
35262120 



35262130 
35262140 
35262150 



35262160 
35263000 
35264000 



35265000 
35266000 
35 2 & 7Q 



35268000 
35269000 
3S27onnn 



35271000 
352/2000 
352/3000 



35274000 
35275000 
35276000 



352/7000 
35278000 
35279000 



35280000 
35281000 
35282000 



UF C">"H SHPRF", w SSinN 



___ 



35285000 
35266000 
35287000 



spi; 

LOAD(CRFUAGS); 
ANDMQM 



sazn; 

stcchsupresscount); 
sazn; : „ 



35288000 
35289000 
35289100 



GOTOCLOCALTESTFORCROONEJ; 

L0AD(CRSCAN8IT^ 
STCCRFUGS); 



35290000 
35291000 
3 5292000 



SP2; 

LOAOCCRFIRSTSPACE); 
ST(CRPDINTER)> 



35293000 

35294000 

-3529*1010 



LOAOCCRTEMP); 
ST<CRTEMP3); 

SPH 



35294100 
35294110 

35294120 



LQADCCOMPRESSCHAR); 
BRMCSTORECRCHAR); 
-S4-2J 



35294125 
35294127 
35294130 



LOAD(CRSUPRESSCOUNT); 
.SR8J 
T(7«X); 



35295100 
35295200 

35 2 9 6 000 



35297000 
35298000 
35303000 



17 



2"' I 
Jh 

;»s 

M 



111:. 



j40| 
1 

'ii: 

,4j 
| .14 
|4S 
1 16 
147 
48 
•'.!* 
50 

; i 

52 
5.3 
54 
55 
56 



h- 



10 



13 



16 



, 20 
21 



23 



25 



27 
28 



30 



33 



34 

i 35 



36 



I 38 



«0 



43 



48 



52 
I 53 



l 56 



*L 



sxz; 

INCR(X#X); 

■ s u ae io); — 



SAN J 
GOTO(tOC-S); 
A DQCl fl H 



353U4000 
35305000 
35 3 OOO0Q 



35307000 
35308000 
3^3 09000 



SP2; 
&L8J 

nRR(XiC)? 



RL8J 

ADD(12336); 
T(CtA)J 



35310000 
35J11000 
35312000 



SR8; 

BRM(STOHECRChAR); 
TCA«C3* 



35313000 
35314000 
353lfllOQ 



BRMCST0RECRCHAK); 

spu 

L0ADIND(CRTEMP3); 



35314H0 

35314120 
3 5 31 41 30 



BRMCSTQRECRCHAR); 
LA BL C LO C A LT E STF Q RCRO N. E ? , 



35314140 
35328000 
35 3 29000 



HEADINGCfcOCAL T f, #"EST FOR% M CR OON", M E 



35330000 
35331000 

35334Q0Q 



"f 4)1 



-&B-L 



loadccrcount); 

saz; 

gut o (getne x tcahdcol); 



35335000 
35336000 
3 5337Q0Q 



35338000 
35339000 
35 340 00 



uoaoccr); 

BRM(STORECRC HA ft); 



35341000 
35343000 
35 3 44000 



spi; 

l oad ino tc ar c re a der q ta il ); 



SUB(OM); 

saz; 

snTnr r.BNnTr.p? 



353^6100 
35356105 
3 5356U Q 



35356H5 
35356120 
35356125 



SP2i 

desccstartofcrbuffer); 
stcbff.start); 



DESCCENOOFCRBUFFER)! 

STC8FFEN0)J 

1 nADCCARnRF.ADERQTAII )l 



35356130 
35356135 
35356140 



TCC#B>> 
BRM(IANDC); 



35356145 
35356150 
35356155 



LABLCtOOKAGAlN)! 

HEAOINGC'UOOK AG»#"AIN 
BftMfnFfiLAIUtOt 



35356160 
35356165 
35356170 



'*Q,®,2li 



SQVNJ 

qotojccrnotco; 

iP_2X 



35356175 
35356180 
3S356185 



OESC(ENDCRO); 

T(C*D)J 

T CB*A)I 



35356190 
35356195 
35356200 



BRMCCOMPARESTRING); 

suvn; 

GOTOtENDCARCi; 



35356205 
35356210 
3 5356 215 



IF BCLRCAOERTOG 
BEGIN 

spa; 



OR ebcoicreaoertog then 



35356220 
35356225 
35356230 



35356232 
35356234 
35 3 5 6 235 



it 






'\A 



28 

J '"I 



44 



4(i 



48 

(9 



50 



52 

S3 



Ira 



h 



13 

14 



15 
16 
17 
18 
19 
20 
21 
22 
23 
24 



27 
28 

i » 
30 

31 " 

I M 
33 

34 
I 35 
36 
37 ~ 
38 



40 
41 
42 
43 



45 
46 
47 
48 



49 
50 



S2 
53 

54 
55 
56 



DLSCCBCLCRU); 
TCC*D); 
T(A»B)J 



8rm(c0wpar£sthing); 
sqvn; 

fi0T0C8CLCAKp)j 



SP2; 

DESCCE8CCRD); 

Tcc * oa; 



T(A#B); 

BRI8CC0MPARESTRING); 
SOVNJ 



gotocebcdiccaro); 
eno; 



LABL(LOOKFORNEXT); 

HEADINGCLQOK 
- T(A»flU 



FQ'S M R NEXT %0,0,2J* 



BRMCSCANFQRDELlMEfER)/ 

sov; 

G0 T (L00KAGAlN3 j 



GOTO(CRNOTCC) 
LABtCENOCARO); 



HEADINGC"tNO CAR%"0 

spi; 
l a d( c rsupres s nrmessbxt3; 



"> , » 2 ) > 



ST(CRSTATUS); 
IF BCtREAOERTOG AND 
BEG I N 



EBCDICREADEKTOG THEN 



SP2> 

IF BDOLEAN(READERDEFAULT) 
OESCC B CLVLCTUR i; 



THEN OEi)C(EBCDICVECTUR) El5E 



IF 



XMDJ_ 



HIGHSPEEDREADERTOG Th£N 
STCCURRENTCARDTA8l£)J 



BRMCLUACCRT) E|.SE 



GOTO(CKNOTCC); 
TF BCLREAOERTGR CR EBCDICREAPLR TUG THEN 



BEGIN 
LABL(BCLCARD); 

HrAn|Mflr"Br.t 



rAR«.«n 



SP2; 

IF BCLREADERTOG THEN 
BEGIN 



w i OtQ»g) J 



DESC(BCLVECTOR); 
IF HIGHSPEEOREADERTOG THEN 
ST (CURRENTCARO TABLE?* 



8R«a0A0CRT) El.SE 



END 
E LS E 



GOTOCCRFORGETCARD); 



BEGIN 

SPOUT(ICC); 
SPI) 



UOAD(LOCKBIT); 
ST(CRSTATUS); 



end; 

LABUEBCDirCARm; 



35356240 
35356245 
35J56250 



35356255 
35356260 
35356265 



35356270 
353=6275 
35*5 6 260 



35356265 
35356290 

35356295 



35356300 
35356302 
353 b 6 3 5 



35356310 
35356315 
353 5 6 320 



35356325 
35356330 
353 5 6335 



35356340 
35356345 
35 3 5 63 50 



35356355 
35356360 
3 53 5 63 6 5 



35356375 
35356380 
35356365 



35356390 
35356395 
3 5 15 6 4Q Q 



35356405 
35356410 
35356415 



35356420 
35356425 



35356429 
35356430 
3*>356fl3S 



35356440 
35356445 
35 *5 6 4 50 



35356455 
35356460 
35 356465 



35356467 
35356470 
15356475 



35356480 
35356485 
35356490 



35356495 
35356500 
353 56 502 



35356505 
35356515 

3535652 



4fi 
47 

48 



L2 



b6 



1 

I 2 
3 
4 

I 5 
6 
7 

i 8 
9 
10 

! " 

12 
13 
: 14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
90 
31 
32 
33 
34 
35 



, 38 ■ 



40 



-IX. 



HEADING("EBCOIC 
SP2J 
EBCniCREADfcRTCG THEN 



"CARD 



'»0>0>2)J 



BEGIN 

DESC(.EBCDICVECT0R>; 

IF HrGHSPFFDRFADERTOG 



THFN BRMCLQADCRT) ELSE 



stccurrentcardtadle); 
goto(crforgetcard); 



-£UD- 



ELSE 

BEGIN 
_, SPOUT (ICC) J 



spi; 

lqadcuockbit); 

stccrst a tusjj 



GOTO(TESTCP); 
ENOI 
-E-N&J 



% 
% 



LARL(CRMITCC) 



HEA0IN6CCR NOT ","CC 
SP2; 
LOAncCRPQINTERX 



, /0»0>2)l 



stccardreaoerqiaid; 

L AB U C RFURfiETCARO i 



HEADINGC'CR FORG% w T CARD %0,0»2)* 



spw 
c la; 



stccrflags); 

goto ccaRoreadeh star run; 



lablcstorecrchar); 

headingcstqre 
ns?cm? 



C%"R CHAR n ,Q,Q,2y> 



spi; 
tccxh 

STINDCCRPOI NTE R ) ; 



T(C#B)> 

SP2; 

LQAD(CWPQINTFR); 



stccrtemp); 

iar; 

st(crpointer); 



45 



49 
I 50 



SUBCCARORtADERtf); 

sazn; 

GQTQtCROUTOFSPACE); 



LOAD(CRPOINTER); 
SUi(OES(ENDCFCHBUFFER))> 

SAZi , , 



G0T0U0C + 6H 
OESC(STARTOFCRBUFFER); 
G0TQn.nC«16U 



52 



55 
I 56 



SPU 

Tcx*o; 

GOTQINECSTORECRCHAR)? 



LABKCROUTOFSPACE); 
TtD^rVt 



35356525 
35356530 
■ 3^61 



-3i. 



>535 



35356540 
35356545 
3 e >356 B i'=in 



35356555 
35356557 
3b 3 b ft 5 6 



35356565 
35356570 
353b6575 



35356580 
35356585 
35 356 590 



35356592 
35356595 
35 3 56600 



35356605 
35356010 
353^6615 



35356620 
35359000 
^5359100 



35370000 
35370010 
353 70 2 



35370030 
35375000 
35376000 



35377000 
35383000 
35 3840 00 



35384100 
35384U0 
35384120 



35384125 
35384127 
3 538413 



35384135 
35384140 
35384150 



35384160 
35384170 
3538 4180 



35384190 
35384200 
35384210 



35384220 
35384230 
35^84240 



35384250 
35384260 
35384?7fl 



35384272 
35384274 
3 5364276 



35384280 
35384290 
35 364 3QQ 



2H 



1 44, 



:.o 
:, 

lv 

|.vj 
F.4J 
5&I 



15 



17 
18 



IS 
20 
21 
22 
23 



25 

| 26 

27 

28 

I M 
30 

31 

I « 
33 

34 
, 35 
36 
37 " 
38 



40 



42 
43 

| 44 
45 
46 
47 
« 



49 
50 
51 
52 
53 
54 
55 
56 



STCCRTEMP2); 
GOTQCTESTCP); 



LABL(CRRESTARTSCAN); 

HEADINGC'CR 
SP?i 



RESTVAHT 5CA"#«n 



" » » 3 ) I 



LOAD(CRPOINTER)) 

SUB(CAROREACERU); 
S-AXN4 



GOTO(TESTCP); 
10ADCCRTEMP2); 

t f f: t p ) ,; 



% 



GQTOINDCSTQRECHCHAH); 
LA B U f INITI AU Ty E CRSI i PKE fiiS ICINH 



HEADING("INITIAL H *"IZE CR % «CUMPhES% "S I ON 



• 4); 



PRECISION is II 



LUAD(6)J 
STCCRSUPRESSCOUNT )i 
UUDCCRSC A N B IT ± H i 



STCCRFLAGS); 
GOTO(TESTFORCRDONE); 



IF 



NOT HIGHSPEEUREAUERTOG THEN 
BEGIN 
I, Afll CCHECKFnRTNVALTUCHAH); 



HEAOINGCCHECK F"*"QR 1NVA"> M L1D ChA m ,"R 



" * 4 ) i 



srh; 



spi; 

SUBC 128); 

saz; 



gotocstorecardchar); 
end; 



LABLCINVALIDCARDCHAK); 

HEAOINGC'INVALIO'N" CARD C","hAR ">0*3j; 



5P2; 

IF HIGHSPEEOREAOERTUG THEN 
T(0»n 



ELSE 



DECR(D*C); 
S U B CDESC C R B UFFLh) )i 



saz; 

GOTOCLOC+7); 

spu 



UOADCQM); 

GOTO(STORECARDCHAR); 
PRECTSTQK li p; 



SPOUT(CRINV); 
SFli 

LQADfLCCKBIT W 



STCCRSTATUS); 
GOTO(TESTGP); 



IF HIGHSPEEOREADERTOG 

BEGIN 
LABLft.fUnrRTX ~-i 



THEN 



35364310 
35304320 
^3n4330 



35384340 
35364350 
35384360 



35384370 
353*4380 
353 843 90 



35384400 
35384410 
15384420 



35384430 
35384440 
35385000 



35386000 
35387000 

35388000 



35389000 
35390000 
3 53 9100 



35393000 

35394000 

-35395000 



35395100 
35395110 
35422000 



354^3000 
35424000 
35425000 



35«2600Q 
35427000 
154<>fl000 



35429000 
35429100 
15430000 



354J1000 
35432000 
3543J0QQ 



35434000 
35434100 
3«*434:>nn 



35434300 
35435000 
3 5 4 36 



35437000 
35438000 
3 54 39000 



35440000 
35441000 
3 544 2000 



3544 3000 
35444000 
3 544 5000 



35446000 
35447000 
3 54 4 7 10 



3544*020 
35447030 
15447100 



>r 



o 
Q 



12 

13 

I " 
15 
16 
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IS 

19 

) 20 

21 

22 

) 23 

24 

25 

I 26 

27 

28 

29 



30 

31 ' 

I M 

33 

34 

I 35 
36 

37 ' 
| 38 
39 

40 

I 41 



42 
43 
i 44 
45 
46 



48 

49 

I 50 






52 
53 



HEADINGC'LUAD CR">"T 
PRECISION Js 2> 
D S 2 C 3 ; 



"#0*0,2 )> 



T(C>x); 
lqaD(Mqdemstatus); 

SA7 1 



GOTOCLOC - 3); 

FUN(CLEARHIGHSPtEUREADEK)/ 
FUNf TwnrBHn»trniiMi y 



DESCCCRFF); 
BTOCLOADDMAO; 
SRfll 



btocloaodmad; 

spu 

ci a; 



jar; 
bto(highspeeoreadermoue); 

FU NCTNTTTATFHTriH.SPFrnRFAnFR)i 



LABLCSTARTCRTIOADW 

HFAOINGCSTART 



spi; 
fun(clearhighspeeoreader); 



r'."in l n a n ** * n ,. n t rP ,> ^ 



BTOCHlGHSPEEDRtAUERMOUt); 
LOADXCC); 

sazn; . 



GOTO(LOADCRTSINGLE); 
8TKREADCRTA0DRE5S); 
SnRxm>t 



sazn; 

GOT0CL0C+6); 

FUNf TNrRFMFNTHHTAnnRFtiS?? 



GUT0(L6C-9); 

U0A0C-17); 

STCTRSCWATCH)) 



LABLUOAOCRTLOOP); 

HFAnTNfiCM HAD 



XNCR(X*X')J 

spi; 
tnAnxto)? 



CR","T lQHP n ,U,\},2)> 



BTCKLQADCRTTABLE); 

FUN (INCRE ME NTCKT ADDRESS); 

TNCREMENTf CRSCHATCH)! 



saz; 

GOTO(LOADCRTIOQP); 

mc&uuxxi 



GOTO(STARTCRTLUAD); 
LARl.(l,nAnCRTSlNGLE)i 



HEADINGCLOAD 



CR rt # w T 
FUN(CUEARHIGHSPEEOREAOER); 

i.nArt(2on); 



SlNGt.%"E 



<>Q,3)i 



BTOCHlGHSPEEORtADERMODE); 

INCR(X*X); 

LQAnxfnu 



sazn; 

GOTOINDCLQADCRl); 
BTICRFAOCRTAnnRESSW 



35**7110 
35**7120 
3b fl«7l 3 



35**7140 
35**7150 
35**7lfiO 



35447170 
35447172 
35*47177 



35447180 
35447190 
35*47200 



35447210 
35447230 
35447240 



35447250 
35447260 



35447J00 
35447310 
35*47320 



35**7330 
35447332 
35447334 



35*47336 
35447340 
35 * 4 7350 - 



35447360 
35*47370 
1S447?7C 



35*47380 
35*47385 
35*47 390 



35*47395 
35**7400 
35*47410 



35*47420 
35*47430 
35*47440 



35447450 
35447460 
3 c )447A7fl 



35**7480 
35*47490 
35447500 



35*47510 
35*47520 
3S447sm 



35447540 
35*475*5 
35447550 



35**7560 
35**7565 
35447567 



35*47569 
35**7570 
354475R0 



35*47590 
35*47600 
35**76 10, 






9 
10 
11 
12 
13 
14 
IS 
16 
17 
18 
19 
20 
21 



22 
23 
24 
25 



26 
27 
28 
29 

30 

31 " 
32 
33 
34 
35 
36 
37 ~ 



38 
39 



42 
43 



45 
46 
47 
48 



SO 

51 



52 
53 



54 

55 



subxcoj; 
sazn; 

GOTnCLQC+flll 



FUNC I NCREMENTCRT ADDRESS); 
GOT0CL0C-9); 



35447615 
35447620 
354476 2 5 



end; 



LOADXCQ); 
BT.O(LOADCRTTABLE>; 

GQTO(LO A DCRTSINGLL); 



35447630 
35407635 
^447640 



% 
-X. 



% 

% 



FNO QF CARD RFADFR nOVLtif 



% 

X 

JL 



CARDREAOERSTOKAGE RESERVES ALL OF THE LOW MEMnfiY STQRAGF 



LOCATIONS NEEDED FOR HANDLING THE CARD READER, 



% 
% 
PRQC E OURF rARDREADEH S TOR A G E i 



BEGIN 



real segment; 



LABLCCRSTATUS); 

HEADINGC'LR 
USKLOCKBIT); 



bTAT%"US WDRD'%0,0,^); 



LABLCCRFLAGS); 

HEAniNG("CARD RE w » w Af.fcH FL H t w AfiS 



OSKO); 



LABUtCRCnUNT); 



"tflt 33 1 



HEADINGC'CARD 

dsko); 



RE"#"ADER CO"#»'UNT 



%o#3); 



LABL(CRSUPRESSCOINT); 
HEADINGC'CR 
DSKO); , 



BLAN"* n K iUPRE%"SSJOi\ C", M OUNT 



•♦#4); 



LABLCCRPOINTER); 

HFAnTMfiM'CABn Bfw.WAOFK PfV»> i*T>tCfl 



DS2C0); 
LA BL CCRF I RSTSP A C E ); 



%0»3)i 



HEADINGCCR FIRS", M T 
DS2(0); 



SPACE%0,Q*2)i 



LABLCCRTEMP); 

HEADINGC 
PS 2 C Q ) ; 



'CR TLMp",0#0/U,u; 



LABLCCRTEMP2); 

HFAnTMQ^c«TFMPg".nin«G.f >r 



DS2(0)j 



LABLCCRTEMP3 ) ; 



HEADING( M CRTEMP3'S0#0#0,1); 

0S2<0); 



35447605 
35447650 

3 5 44 76 60 



35447665 
35447670 
35447680 



35447690 
35448000 
3Sqa9QQ0 



35450000 
35451000 
3«s45?nnfl 



35453000 
35454000 
354^000 



35456000 
35457000 
3545RQ00 



35459000 
35400000 
354 6 1000 



35462000 
35463000 
35464000 



35405000 
35466000 
35467000 



35468000 
35469000 
TJ47Q00Q 



354/1000 
35472000 

354nnoo 



SS^MOOO 

35475000 
15476000 



35477000 
35477700 
35 4777 1 



35477720 

35477730 

-3 5478000 



35479000 
35480000 
354 8100 



35481100 
35481110 
3S4fl11?fl 



35481130 
35481140 
354 8 1150 



35481160 
35481170 
354H2000 



'4/1 < 



|bll 



Jy |! 



h 



16 
17 
18 



19 
20 



25 
26 



27 



29 

30 



34 
35 



LABlCCRbCRATCH); 

HEADINGC"CR 

dsh q j; 



SCRA"»"TCH 



" * / p 2 ) i 



tABi(CRSCRATCH2); 

HFAr)TNfir.*CR 



0S1C03J 



i ari LCiiaiiOJi^finXABJ F!) 



scra^-toh ? %ti.n.gw 



headingc'current"*" cahd t",»able %0,3)j 
if boqlEancreaderoefaulT) then dacebcdicvectqr) else 

OAfBCLVECTQR); . 



% 
% 



LABUCCRFF); 



IF HIGHSPEEDREADERTOG THEN USl<255)J 
ENO OF CARD READER STORAGE* 



% 
% 



% 



CARDREADERTABLES CONlAlNS THE. DAT A NELUED BY THE 
HARD RE A DER ROUTINES* — THIS EiUiUUUltii. &X iP "r^PVES 
THE PHYSICAL I/O BUFF£K FOR THE CARD READING PROCESS, 



PRDCEDIJRF C A ROREAnFRTAB I.E S; 



BEGIN 



REAL SEGMENT; 



IF HIGHSPEEDREADERTOG 
BEGIN 



THEN 



IF BCLREADERTOG OR REAOER.OEF.AULT = THEN 
BEGIN 

UPURCi.VECTnR); 



HEADING( W BCL VEC%"TOH %0,0#2)J 

FILL ATEMPC*) WITH 

— n «rr an * 1*9* . a « a i M35 a£* lh " ** aflE&lEi? • 

^"2340 3A3E"M"213V D p30»M"2FS3b4b5"> 

4" e j6b7 5859" J ,4"FFiL2C25",4"3U , JU2iJ5A"# 
4 "HF*n/JA4R'Vq"4C4JaraF«.d«5C)5li.-rpr". 



FOR II 
END J 



4"24 2A29 3B' , #4 W 2752?F26"*4*41424 344'»» 
4"45464 748 w #A"FFFF2E5B w »4 n 29 3e6Q49«, 
fl"nn9r*rsr".a"9BnQnann»y 

«s STEP 1 UNTIL 19 DO 0*4 C ATEMP CI I J ) t 



IF EBCDICREADERTOG 

BEGIN 
LABL(EBCOIcvECTnRW 



THEN 



headingcepcdic %"vectqr %o,o,?j; 
fill atemp[*3 with 

4"FFP0 313?",a"iH4? 5 36",4"j7 3aFF3A", 



4 W 2340FF30 , %4 M 2239DF30«,4'»2F535455»S 
4"S657585»",4"2lFF2C25»»4 M FF3E3F5A«> 
4 w BF2D4A4B"*4 w 4C|tD4E4F»*4"505l5E5D"» 



4"242A29 3B H #4 ,, FF527F26">4 ,, 4142 4 34 4"» 
4 M 4546 4748 ,, #4"i:7 5fl2E3C"*4' , «i8?B60 49"* 
4 M Q0QFScnn'»: ___ 



FOR II 

end; 



I* STEP 1 UNTIL 18 DO DS4( ATEMPC I IJ )) 



3b4d3000 
354d4000 
35485000 



35486Q00 
35487000 
35486000 



35489000 
35490000 
3*1 4,91000 



35492000 
35493000 
35493100 



35494000 
354V4100 
3549 4 110 



35494120 
35495000 
35496QQQ 



35497000 
35498000 
35499QQQ 



35500000 

35501000 
35502000 



35^03000 
35504000 
35*105000 



35505100 
35505110 
35505180 



35505122 
35505124 
35505130 



35505140 
35505145 
355n5]5n 



35505160 
35505170 
355Q51AQ 



35505190 
35505200 
35505210 



35505215 
35^05217 

3550522Q 



355052.22' 
35505224 
3 55052 26 



35505228 
35505230 
35505232 



35505234 
35505236 
35505238 



35505240 
35505242 

355Q5244 



35505246 
35505248 
3 55Q5 2 50 



la 



MB 
1,.. 
"iO 
51 



h 



IS 

17 
IB 



19 

20 



22 
23 
24 
25 



27 
28 



30 



33 
34 
35 



36 
37* 



40 
41 
42 
43 



48 



49 

50 



52 



55 
56 



END 
ELSE 
BEGIN 



IF BCIREADERTOG 
BEGIN 



CR READEROEFA'ULT = THEN 



LABLCBCIVECTUR); 

HEA0INGC"BCL 



VECVTOK 



" * * » 2 ) f 



FOR II »a 



ENDJ 



0M0#20»ASCIIC M x"J + 126#30*ASCin H + M ] + 128» 
128*128MO,50*60M2er70#l28M28*l28 DO DSlCII); 



IF EBCDICREAOERTCG (HEN 
&&UM 



LA8LCEBCDICVECT0R); 

HEADING( M EBCDIC W *"VECTQR %Q,0»2)* 

FOR I I Is B,intPntA.Srm»x«3*iPB.-4n.ign.-i3B.i9fi.an.Qn pl nn f 

128»H0*l28*l2d#l28 CO DS1CIDJ 

end; 



LABLCCRTABLEM 

HEADINGCCR TABL%"E 



%0#0>2)i 



FILL ATEMPC*] WITH 

4 " 20 3 1 32 3 3% 4" 34 35 36 37 "> 4" 30 39 30 2F"> 
4"5 35 45556'% -|"5756 305A"Wr'204A4B4C"* 



4 M 4D4E4 F50" ,4" 3052264 l» > 4" 424 34445% 
4"464 7 304» , S4"3880 3F23"#4 , '403A3E21"» 
4 ^ 3 06059 8 Q , -Wi ,, SE2C253Clt» > / | »i > 022 i O8O-^ 



4"5l808024 , '#4 ,, 2A29 3B2S" , #4"3Q8Q«8e0'S 
^"802E5B28 , S4 ,, 3C6O8O8O"M ,, 3680 3A23"# 
4"4n 8 3D 22"> /l " 8 080592 l"r 4 "ri02C 2 5 8 Q"i 



4 H 3E3F8080 w #o"5l5E5D24"»4 ,, 2A293B80''# 
4 W 80804827 M ,4 ,, 5B2E3C28«*4 ,, 28608Q80"; 



FOR II J* STEP 1 UNTIL 29 DO 0^4 ( ATfcMP [ n j ) ; 



SMIL 



% 
% 



t , A R 1 (f MICRO)? 



DS4(4"454E44CD"); 
IF BC L RE A QERTO G Ufi i -'BC t l I CRFAOF RT Oft TH E N 



BEGIN 
LABLCBCLCRO); 
: DSa(aw <t 2A3Annn w u 



LABL(EBCCRD)i 
nS4ra"a549a^a"); 



DS3C4"49430D*)J 

eno; 



LABLCCRBUFFER); 

HEADING( W CARD 



RE"# M ADER BU'%"FFER ",0*3); 



FOR II I* 



STEP 1 UNTIL 

(IF HIGHSPEEDREAOERTOG 



35505252 
355305254 



35505260 
35505270 

35505280 



35506000 
35507000 
355 Q8 Q00 



35509000 
35510000 
35510100 



355U000 
35511100 
3S 5U20Q 



35512000 
35513000 
35514000 



35515000 
35515100 
3551 6 0Q 



35517000 
35518000 
35519000 



35520000 
35520010 

35 5 2 0020 



35520030 
35520040 
35520050 



35520060 

35520070 
35520080 



35520090 
35520100 
3552 0110 



35520120 
35561100 
355Q11 10 



35562000 

35562100 
35562110 



35562120 
35562130 
^5562132 



35562134 
35562140 
35562 |5Q 



35562160 
35^62170 
35562180 



35562190 
35562192 

355 Q 22 Q Q 



-35563000 
35564000 
35 505000 



THEN 19 ELSE 39) DO 0S4<0); 



35566000 
35566100 
3 55 670 0Q 



47 

4(l| 

5(1 
SI 
52 
L>3 
S4 

bfii 

4 



7 

e 

9 

10 



12 
13 
14 



IB 
16 

I » 
18 

19* 
) 20 

21 

22 
f 23 

24 

25 
) 26 

27 

28 

I » 

90 



31 

I 32 
33 

34 

| 35 
36 

37 " 
, 38 
39 
40 



I 41 
42 
43 



CO 

CO 

o 



45 
46 

I » 

W 

49 

I W 

51 

52 
S3 
54 

55 
56 






END OF CARD READER TABLES; 



X 

PROCEQURF SPOCOOFJ 



THE NEXT PROCEDURE CONTAINS THE GENERAL SPO CODE, 



BEGIN 



REAL SEGMENT; 



LABL(ENTERSPOUTMESSAGE); 
HEADIN6CENTER 
— PRECISION t» 2i 



S","PQUT ME%"SSAGE %0>3); 



052(0); 
ADD(DES(SPUMESb))> 

STIND(PUT S PCUT); 



SPU 

LOAD (240); 

-H**W 



SP.2I 

LOAD(PUTSPUUT)i 

-ixsj i a h; — 



st(putspout); 
sub(0es(sp0max)); 
.saz; ; 



GOTOCLOC+6); 
OESC(SPOTABLE)' 
ST(PUTSPOUT); 



spi; 

L0AD(9 



(IF READERTOG THEN 2 ELSE 32) ♦ 
(IF PUNCHTOG TH E N 4 E t. SE 6 )) . ? 



min; 

goto i nd( enter spoutmess age)/ 



lablcsposleep); 

headingc'Spo sleVep 
nS2(p)t 



n >0>C>2)i 



saz; 

goto(loc+5); 

5P?i 



LOAO(SpOSLEEP)i 

st(spoutlabel); 

GOTOfTPSTSPDTWPUTU 



END OF SPO CODE; 



X 

X 
JL 



35^68000 
35509000 

anouoooo 



40001000 
40002000 
40003000 



40004000 
40005000 
40006000 



40007000 
40008000 
40009000 



40010000 
4OOH000 



40014100 
40014200 
4 0014 300 



40014400 
40015000 
40016000 



40017000 
40018000 
40019Q00 



400k0000 
40021000 
4 0022000 



40023000 
40023100 

40023200 



40023250 
40Q24Q00 

aoua'iooo 



40026000 
40027000 
4nQ?Bonn 



4Q029000 
40030000 

40031000 



40032000 
40O33O00 
40034000 



40035000 
40036000 
4Q037Q0Q 



X 

X 

JL 



TWE NEXT PRcCEOURE CONTAINS THE CODE FOR HANDLING SPO InPUT. 
IT CAN HANOLE MULTI-LINE SPQ INPui S,BACK SPACI NGj INCLUOING 



40038000 
40039000 
40040000 



X 

% 

JL 



BACkSPACInG PAST THE BEGINNING OF LlNE» A|yQ KEYInS WHEN NO 40041000 
SPACE IS AVAILABLE FOR STUHING THE MESSAGE. DELETE IS ALSO 40042000 
HANOI ED PHQPER1 . Y BY TH I S PlECF OF cOQFt 0*e frCm n^LY nr prf ssaQOii3non 



X 
X 

JL 



THE FIRST KEY OF 
PAINTED IN ORDER 
THE CHARACTER * 



THE MESSAGE THEN WAIT FOR THAT LETTER TO BE 40044000 
TO START THE ENTRY Of A SPO MESSAGE. 40045000 
IS THE BACKfiPACF CHARACTER AS XJ TS gf>P ^0046000 



THE CENTRAL SPQ. A MESSAGE CAN BE DELETED BY TYPING RUB OCT 
(THE KEY). DEPRESSING RETURN CAUSED END OF MESSAGE ACTION. 



PROCEDURE KEYINCODE; 

BEGIN 
. REAI, SFGMFNTi 



40047000 
40048000 
40049000 



40050000 
40051000 
30 05200 0, 



.28' 

.Hi 



18 



> 8 

9 

10 

>" 
12 

13 

I U 
15 

16 

) " 
18 

19 

I 20 
21 

22 

\ « 
24 
25 

I » 
27 

28 

I » 
30 

31 "* 

I »'■ 

33 

34 

I 35 

36 

37 ~ 

M 
39 

40 

i 41 

42 

43 ~ 
44 
45 



46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 



LA81CSPUINPUT); 

HEADI i MGC'SPCJ 



spi; 

UOAOCSPOSTATUSi; 

son; 



INP"j"UT 



' *0j *2 ?> 



gotocnewkeyin)/ 
sann; 

GO TD(IO L ESPCREAD) ; 



sli; 

sann; 

ftOTO( A CTU A LSPOHEAD) ; 



BTICSPOREAU); 
GGTO(NSECOND); 



LABL(ACTUALSP0REA0)J 

HEADINGC'ACTUAL 



%"SPO REA","D 



",o,3>; 



GOTDCNSECONCj; 

bticsporead); 

cm a ; 



SAZN; 

GOTO(DEUETEKEYIN); 
CMflj 



ANOM( 127); 

STCCHAR); 

.S TINDCW E Y I NPCINTER3 J- 



SUBC5); 

sazn; 

QOTQ<FQUNQWR t j>J 



SUBCCR-5); 

sazn; 
finTncFNnnFKEYiN)i 



SU8C32 - CR)J 

sann; 

RnTnCNSFCOND); 



32 + CR) 



SUBC96 - 

san; 

RQTDf NSFrnNH)? 



SP2J 

INCREMENT(KEYINPQINTER); 
BRMYCHFCKKEYINHUFFER)! 



GOTOCNSECONO); 
LABU E NO fl FKEYIN ). 



HEADINGCENO 
PRECISION !« \i 
LQ»nc SPQSTATUS); 



OF M » w KEYlN "» 0*0*2)* 



san; 

GOTO(LOC+ia); 
SPfllJT(RFENTERKtYlN)i 



GOTO(SPOFORGETMSG); 
IF 8CUPUNCHT0G OR EBCO ICPUNCHTOG 
B-&G-W 



THEN 



SP2; 

D£SC(STARTQFKEYInBUFFER}> 

ST(RFFSTART)* 



DESC(ENDOFKEYINBUFFER); 
STCBFFEND); 
LQADCKEYINQTAIl); 



400b300G 
40GS4000 

aoossooo 



40036000 
40057000 

aooiROOO 



400b9000 
40060000 
4Q Q 610 00 



40062000 
40063000 
4Q06400Q 



40065000 
40066000 

40067000 



40068000 
40069000 
4 070 000 



40071000 
40072000 
4 00/30 



40074000 

40075000 

-40076QQ0 



40077000 
40078000 
40079000 



40079100 
40079200 
40079300 



40080000 
40081000 
ttO0fl?0O0 



40083000 
40084000 

onoflsooo 



400tJ6000 
40067000 
40088000 



40092000 
40093000 

an093ino 



40094000 
40095000 
40 H9600Q 



40097000 

40096000 

-40Q990Q0 



40100000 
40101000 
40101100 



40101120 
40101140 
40101160 



40101180 
40101200 
4 0101220 



40101240 
40101260 
4010 1 2 8 



X 

I 



""I 



4T 
4H| 



»i4 



h- 



1 

2 

3 

4 

5 

6 

I 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 ~ 

38 



40 
41 
42 
43 
44 
45 
46 

I *7 
48 
«9 

I SO 
51 
52 

I 53 
54 
55 

i 56 
B7 



T(C>B); 

BRM(DEBLANK) i 

s qvn; 



GOTCKMSGTOSYSTE.M); 

SP2J 

DfSC(CPSTR); 



tcc#d); 

brmccqvparestring); 

30 V? 



GOTO(MSGTOSYSTtM); 

8RMCIANDC); 
BRMCDE8I ANK)j 



sqvn; 
gotocmsgtqsystlm); 

IF BCLPUNCHTUG ANU E8C I CPUNCH Tflij THEN T(B*A)i 



IF 8CLPUNCHTQG THEN 

BEGIN 
S P2J 



DESCCBCLCSD); 

T(C#D); 

6RM(cnMPARESTRIUG),» 



sovn; 
gotocspqbcu; 

;nd; 



IF EBCOICPiJNCHTUG then 

BEGIN 
SP8J 



desc(ebccrd); 
tcc#o); 

IF RCl.PUNT.HTnr, THE N TC A *B )i 



brmccomparestring)} 
sovn; 

GnTncSPOERf.DlDI 



eno; 

goto(msgtosystem); 



if ebcdicpunchtqg then 

BEGIN 
I ABL(SPqEBCQU)/ 



HEAOINGCSPO EBC'%"DIC 

SP2; 

DESCCERCDICPUNCHTABI E)J 



,0,0*2)* 



stccurrentpunchtabue); 

GQTOCSPOF'QHGETMSG); 

en d ; — . — . — 



IF 6CLPUNCHT0G THEN 
BEGIN 



LABLCSPOBCL)/ 

HEADINGCSPU BCL"*0»0#U,1)J 

S*24- 



oesc(bcupunchtablE); 
st(currentpunchtabue); 

fiaTOfSPQF n RfiE TM SG)? 



40101300 
40101320 
4 1 134 



40101360 
40101380 
40101400 



40101420 
4010U40 
401UU60 



40101480 
40101485 
40UU500 



40101520 
40101540 
40101560 



end; 
end; 



LABLCMSGTOSYSTEM); 

HEADINGCMSG 
&P_2J 



TO M #"SYSTEM ",0,0,2)J 



40101580 
40101600 
40101630 



40101640 
40101660 
40101680 



40101700 
40101720 
40101740 



40101760 
40101780 
4 1 01 8 00 



40101820 
40101840 

AOl-fllHAQ 



40101880 
40101900 
40101920 



40101940 
40101960 
amoigwn 



40102000 

401U2020 
40102040 



40102060 
40102080 
40XQ 21 Q Q 



40102120 
40102140 
40102160 



40102180 
40102200 
401QP22Q 



40102240 
40102260 
40102 28 



40102300 
40102320 
4Q 1Q23 40 



40102360 
40102365 
40102380 



40102400 
40102420 
4Q106Q 1 P 



17 

IB 






-V3 
14 ' 



48 
I) 
■50 



-.J 



2 
3 
4 
5 
6 
7 



INCREMENTCKEYINPGINTEH); 

BftMCCHECKKEYINBUFTER); 

tflAn(KEyTNPniNTF,R )i 



STUEYINQTAIO* 
i ari (SPnrnRr.ETMsr;^; 



10 

ii 

12 
13 
14 
15 
16 
17 
18 
19 



HEADINGC5P0 
SPU 
LOAD(SPOSTATUS); 



FQR w # ,, Gf;r US(i",Q.Q,Z)i 



AN0MC255 - CCNTSTQREBIT - lNBUSYBlT)) 
STCSPOSTATUS)* 

G OTQf N sec nNnw 



LABLCFQUNDWRU); 
HFAniNfiCfQlJiSTJ W ,, t w RJ 



, " Ml P f? ) '* 



LQAO(MQOEMFLAGb); 

SAN* 

GQTQfl TNF T N APTIV E); 



SP2* 
LOAOCLASTACTIVITY); 

Anp(MOOFMSTATUS); 



22 



24 

25 



28 



30 
31 
32 



34 

35 
36 
37 " 
38 
39 



41 
42 



AODCNEXTACTIVITY); 
SUB(RECEIVEACK); 

sazn; 



GOTDCENQAGAlNJi 
SPOUTCLINEINOSE); 
SPl J 



GOTOCOELETEKEYIN}* 
LflBLfENflAGAIN); 



HEADINGC H tNO 
SPl* 
I aAn(M0nEMF|,AG5),; 



AGA"#"1N 



'>0#Q*2)i 



ANDM<63>* 
ST(MODEMFLAGS)* 
GflTfUnEI ETFKEY1N); 



LABL(LINEINACTIVE)* 

HFAnTNGC'UTNF 



IN";" ACTT VF . M >H >Q^2)* 



180* 

CSQ(HL)* 
SPl* 



10ADC1 + CIF 
(IF 
ST(NRMASK); 



PRINTERTOG THtN 
PUNCHTOG THEN « 



2 ELSE 0) 

ELbE on; 



GOTOCDEUETEKEYIN)* 



46 
47 
•8 



LASLfnFtFTFKFYfN)* 



HEADINGCUELETE 
PRECISION »- 1* 
LQ AD C CR); 



V'KEYiN "*0,0,2)* 



«9 
50 



53 



stcchar); 

LOAOCSiOSTATUS); 

ANDMf?l5 - DflNTSTQWEHlf - 



STCSPOSTATUS)* 
GOTO(NSECOND)* 



INBUSYBlTlf 



55 

56 



LABL(ENOOFLINE)* 

hcaoingceno of "*"lin£ 

spi* : 



>0#0/2)i 



40106020 
40106024 
4ni06n?A 



40106030 
40106032 



401U6036 
40106040 
40106050 



40106060 
40106070 
aniaonnn 



401«0000 
40140010 
401*40020 



40140030 
40140040 



40140060 
40140070 
40UQQ60 



40140090 

40140100 

-4 01 4 0U0 



40140120 
40U0130 
40U014Q 



40140150 
40140160 
4QU0170 



40140180 
40140190 
40140200 



40140210 
40140220 
anign? 9S 



40140230 
40140240 
4014QP50 



40140260 
40140270 



40140282 

40140284 

-40140266 



40140290 

40140300 

-4014100Q 



40142000 
40143000 
40144000 



40145000 
40146000 
40147000 



40148000 
40163000 
40164QQ0 



40165000 
40166000 
4 01 67000 



1 4.1 
4- 

4s| 

I , 
4?| 

48| 

■»9i 
|Ml| 
IT 
52 

S4 

bfi 
57) 



ft 



17 
IS 
19 



21 
22 
23 
24 
25 
26 
27 
28 
29 



33 
34 
35 
36 

37 ~ 



41 
42 



I 44 
45 



47 
(8 



49 

i 50 

51 

52 



55 
56 



LOAO(SPOSTATljS); 
ADD(KEYINCUNTINUEOBIT); 
ST(SPQSTATUS); 



60T0{L0C + li>); 
LAfti(ffHtCKKEVlNBUF-&UlU. 



HEAOINGC 
DS2C0); 
SP2J 



CHECK K"#"EYHN BL"*"f"FtR ", 0,3)1 



DESCCENOOFKEYINBUFFER); 
SueCKEYlNPOlNTER); 

saz; 



G0T0CLDC+6); 

DESC(STARTQFKEYINBUFFEK); 
ST(KEYINPQINTEK); 



LQ^O(KEYINPCINTER); 
SUB(KEYINQ); 

saz; 



GOTOIND(CHECKKLYlNbUFFEH); 
GQTOCNOSPACEFORKEYIN)ji 



LABLCNEKKEYiN); 

HEAOING( M NEW 
PRECISION :« If 



KEY", "IN 



"#0,0,2)1 



rri; 
soo; 

G0TQ( L QC+1 3 ); 



rui 

AN0M(255 • KEYINC0NTINUE0B1T - lN8(jSYBlT)> 
AQDfKFYlMrnKfTNIirnBtT ♦ TlwaUSYBTTlI 



STCSPOSTATUS); 

BTHSPOREAD); 

fiflTnCNSFCOND)? 



SP2; 

UOAO(KEYINQTAIL); 
STfKEYlNPQINTER)i 



spi; 
lgad(spostatus); 

JiRU ■ 



sui 
iar; 

STtSPOSTATUS^; 



GQTOCACTUALSPOREAD); 
UBI.CNQSPAC EFORKEYIN); 



HEADING("NQ 
SP1I 
LQAOfSPOSTATlJS); 



SPAC","E FOR K",*£YIN ",0,3)1 



ANDM(255 - DONTSTOREBIT - INBUSYBITJJ 
ADDCD0NTSTQRE8IT ♦ INBU3YB1T); 
ST(SPQSTATUS)8 



GOTO(NSECOND); 
AH1 f THLF SPORFAn^t 



headingc' 
spi; 

BTKSPDREAQ); 



IDLE SP","0 HEAO ">Q*0,2)i 



AN0MU2"Oi 

ST(CHAR); 

SUP C CR )* 



40168000 
40109000 
4 Q 1 7000Q 



40173000 
40174000 

4 01/41QQ 



4 01/4110 
401/4120 

401^130 



40174140 
40174150 
40174160 



40174170 
40174180 
40174190 



40174200 
40174210 
40 1 7 4 230 



40174230 
40174240 
ft til 7 4250 



40175000 
40176000 
40176100 



401/7000 
40178000 
4 0179000 



40180000 
40181000 



40163000 
40184000 
OOlHOOtO 



40184800 
40185000 

4 niH6 o no 



40194000 
40197000 
40198000 



40199000 
40200000 
40201000 



40202000 
40203000 
40204QQO 



40205000 

40206000 
q020700C 



40208000 
40209000 
40210000 



40224000 
40225000 
4Q2 71Q0 



40272000 
40273000 
4 Q274Q QQ 



40275000 
40276000 
40277000 



|2f]i ' 



128 



47 
48 



52 
i3 






8 

9 
10 
11 



17 
18 



19 

20 



24 
25 



27 
28 



30 

31 " 

32 

33 

34 

35 



36 
37" 



38 
39 



41 
42 



47 
48 



•9 
50 



52 



55 
56 



sazn; 
goto(enoofkeyin); 

SUHCDEUTE - ClQj 



sazn; 

GOTOCDELETEKEYIN); 
GDTO(NSECQND); 



40278000 
402^9000 
a.QPclOOOQ 



40281000 
40282000 

40285000 



END OF KEYIN CODE 



% 
% 



402V2000 
4Q293000 
40^V4000 



THE NEXT PROCEDURE CONTAINS THE CODE TO PRINT SPO OUTPUT 
ARID INPUT ON THE SUPERVISORY PRINTER.. 



% 
% 



IT HANDLES 
OUTPUT. 



PRUBL.LMS OF CONTINUED RECORDS UN INPUT OR 



PROCEDURE 
BEGIN 



% 



spoutcode; 
re a l segment; 



LA8LCSP0UTN0TBUSY); 

HEAPlN G C 'i PQUT 



spi; 

LOftOCSPQSTATUS); 

-SOW 



N" , "UT r lu S Y'^Q.Q^J* 



GGTOCFINDASPGUT )> 

ANDM(255 - CUTBUSYBIT - ECHUBIT); 

A.QO(ECH BIT ♦ U U T B U. 'J Y B IT ) i 



ST(SPOSTATUS); 

L0A0C-72); 

STffSPnijTCnUNT)) 



SP2; 

DESCCECHOBACKKEYIN); 
STCSP QU TLA B EUi 



LABKECHOBACKKEYIN)* 
HFAniNfi("LChLO- 



RA".»rK KFYT".^ 



spi; 
luao(char); 

SAIN? 



w * * 3 ) t 



GQTO(TESTSPOINPUT); 
BTOCSPQWRITE)* 
SuBfr.RW 



SAZNj 

GOTO(ENDOFECHOBACK); 
Cla; 



STCCHAR); 

INCREMENT? SPOUTCOJNT)} 

saz; 



GQTO(TESTSPCINHUT); 

SPOUTSLEEP(ENDUFSPOLINE); 



lablcendofechoback); 

heading( m en0 of m #"echo 

PRFPTStn NI 18 \s 



BA W #"CK 



'*0#3); 



SPO.UTSLEEPtC); 

spi; 
load an; 



btocspowrite); 
cla; 
stcch a r); 



402*5000 
40296000 
4Q?97Q00 



40298000 
40299000 
4 3U Q00Q 



40301000 
403020QO 
4 3 03000 



40304000 
40305000 
4 QJ Q6 0Q0 



40307000 

40308000 

- ' 1 3 09000 



40310000 
40311000 
4 0H 2 0Q0 



403U000 
40313100 

ananaflo 



40314000 
40315000 
flQilrtOOQ 



40317000 
40318000 
4031,9000 



40320000 
40325000 
4Q 3<>60QQ 



40327000 
40328000 
40329000 



40330000 

40331000 

.40332000 



40333000 
40333100 
a o333?nn 



40334000 
40334100 
4033 5000 



40355000 
40356000 
4Q357QQ0 



40358000 
40359000 
40360000 



40361000 
40 362000 
40 36 3000 



Ha 

|» 

'JO 



i\ 

\A I ' 

42 

-I 
I4J 

|.M 

4b 

4t 1 
47 
48 

S(l 
:il 
52 
S3 
S4 
F..5 





16 
17 
18 



19 
20 



21 
22 



26 



27 



30 



32 



34 
35 



36 
37* 



♦0 
41 
42 



44 
45 



46 

i »7 

ta 



«9 



52 

i 53 



55 

I 56 



LQAD(SPOSTATUS); 
ANDMflKBUSYen + 
STfSPn.STATLiSil 



DGNTSTUREbln; 



SP0UTSUEEP(SPQUTM0T8USY); 
LABL(NQSYSTEMSPQUTS3; 



HEADINGC'NG 
SP2; 
I, HAD C SPOUTS); 



SYST'VEM iPaL">"TS 



'»0#3)i 



ST(SPOPOlNTER)i 
SUBCSP8UTQTAIL); 

sazn; 



GOTO(TESTSPCINPUT); 

spi; 
l u ad (sp us tatu s ); 



ANUM(255 - LOCALBIT)* 
GOTOCFOUNOSPOUT); 



labl(finoaspout); 

headingc'find 
sp?; 



VSPUUT "*Q»0»2U 



loaoino(nextspout); 

sazn; 

gqto(nosystemspquts)l 



STCSPOPDINTER); 

CLA/ STINDCNtXTifOUT); 

L O A D(NEXTSP C UT); 



iar; iar; 

st(nextspout); 

suBcnrscspnMxijx 



saz; 

G0T0CL0C+6J i 
DrSfiCSPOTARLEH 



stcnextspout); 
spi; 

LDAnfSPQSTATtlSW 



AN0M(255 - U0CALB1T); 
ADU(LOCALBIT); 



LABL(FOUNOSPOUT); 

srcsposTATus); 

LQAD(-73)f 



SHSPOUTCQUNTJ* 

LGADCSPOSTATUS); 

ANQMf 255 - CLTbQSYBIT?; 



AOD(OUTBUSYBIT); 
STCSPOSTATUS); 



LABL(SPQUTMSG); 

HEADlNGCiPOUl 
5PtUITSLFEP(C); 



M"/"SG 



',Q,Q>2)i 



spi; 

increment (spoutcount); 

SAZNI : __^ 



gotocendqfsp0l1ne); 

loid(spostatus); 
so dn ; 



GOTQ(SNQBREAK)i 
BRM(SPOFETCH)! 



40304000 
40365000 

aoiftfiooo 



00367000 

40368000 
40368100 



40366110 
40368120 
40368130 



40368135 
40368140 

40368150 



403O8160 
40368170 
4 036 8 1 60 



40368190 
40368200 
4 3 6 8210 



40369000 
403/0000 
403 M OOP 



40393000 
40 394000 
40 1 I 95000 



40396000 
4O3970C0 

40398000 



40399000 
40400000 
40401000 



40402000 
40403000 
40404000 



40405000 
40406000 
40407000 



40408000 
40409000 
4Q4U1QQ 



40411200 
40412000 
40414000 



40419000 
40420000 
40421000 



40*22000 
40423000 
40424000 



40425000 
40426000 
4042,7000 



40428000 
40429000 
40430000 



40431000 
40432000 
40433000 



40434000 
404 35000 
40 4 43 00 



' ; 1, 



|M 



h- 



2 
3 
4 
6 
6 
7 
8 
9 
10 
11 
12 



13 

I " 
15 

IB 

I l7 
18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 



) a 

30 

J1 

► >2 

33 

34 

\ 3S 
36 

37 " 
I 38 
39 

40 

, 4, 

42 

« 

\ 44 

45 

46 

I » 

48 

49 
1 50 

51 

52 
i 53 

54 

55 



56 



*1 



SUBCCR)/ 

saz; 

GOTOCTE S TSP C IMP U TiJ 



LABLCENDOFSPOUT); 

HEAOINGChND 



luad(spqstatus); 
sri; sri; 

s udn; — . 



OF w >*SP[iUT " ,. * n . 2 .1 i 



G0T0(L0C+7)J 
SP2* 

t.nAncspnpniNTER); 



STCSPOUTQ); 
5iP2; 
SPQUTSLFT.Pf Cp; 



spi; 

LOAD(LF); 



lqadcspostatus); 

AN0M(255 - 6); 
ST(SPaSTATUS); 



SPOUTSLEEP(SPObTNOTBUSY); 

LABLCSPnBPEAK); 

HEADIN6CSP0 BRE"/"Al) 
PRECISION :s \i 
BRMf SPnFFTf.h)? 



"pQ»Q»2)i 



subccrj; 

SAZ) 

nnmri nr..^; 



uoadccr); 

BTQ(SPOrtRlTE); 
GOTO( E ND O F S PC U T); 



LABL(ENDOFSPOLINE)* 

HFArHNGC'FNQ 



SPW 

loadccrj; 

BTUCSPnWRTTF)? 



OF "."SPJ LI^ w t"E 



w » n » 3 ) 8 



LOADC-72); 
ST(SPOUTCOUNT)i 
SPnilTSt.FFPf (\)i 



spi; 

LDAD(LF); 
RTQ(SPOWRITE).? 



UOAO(SPOSTATUS); 
ANOM(ECHOBIT); 
SA?NJ - 



GOTO(SPOUTMSGW 
SPQUTSLEEPCECHOBACKKEYINj; 



UABUCSPOFETCH); 

HEADINGC'SPO FET"*"Ch 
- — D S 2C0); — 



'%0»0#2)i 



SP2) 

LOAD(SPUPOINTER); 
T C C» X-» 



iar; 
st(spopointer); 

.Sl.fB(DES(ENO0FSPQBUgFER;)l 



40444QO0 
40445000 
40446000 



40447000 
40448000 
4G4490QQ 



40451000 
40452000 
4 W 4 &JQ00 



40453100 
40453200 
40454000 



40455000 
40456000 
40457000 



40458000 
40459000 
40460000 



40460010 
40460020 
4 Q 4 6003 



40463000 

40464000 

-40464100 



404641 10 

40464H5 
40404120 



40464130 
4Q«64140 
404641S0 



40404160 
40464170 
404fU18Q 



40464190 
40464200 
4Q46421Q 



40464215 
40464220 



40464240 
40464250 
40464260 



40464270 
40464280 
40464290 



40464292 

40464294 

-AQ464296 



40464300 
40464302 
40464 31 Q 



40464320 
40*64330 
4 4 6 4 3 4 



40464350 
40464360 
40464370 



40464380 
4Q464390 
40464400 



j«i 

47i 
4B| 



|5L„ 
156. 



K 



> e 

9 
10 

I » 
12 

13 

I " 
15 

16 

I " 
18 

19 
} 20 

21 

22 
| 23 

24 

25 
| 26 

27 

28 
| 29 

90 

31 ~ 

! « 
13 

34 

I 3S 
36 

37 ~ 

I M 
39 



40 

42 
43 



45 
46 

48 
49 

I » 

51 

52 

I W 

54 

56 
) 56 



saz; 

GDTO(L0C+6); 
E S C(ST A RT U F5P tiH UFF £ Ri J 



ST(SPOPQINTER); 

spi; 



GOTQINDCSPOFETCH); 



END OF SPOUT CODE; 






THE NEXT PROCEDURE 
H A ND L E TH E . S PfJ . 



RLSEKVtS THE STORAGt NEEDDED TO 



PROCEDURE 
BE G IN 



SPOSTORAGE* 



% 



HEAL segment; 
LABKSPCUJTCnUNT),? 



HEADING("SP0UT 

DSico); 



C'VOUiVT M #0#0#2Ji 



lablcspqutlabed; 

headingc'spout 

DAfSPnuTNOTBLSYj; 



l%"ABc.L. %0*0*i)i 



lablcspopointerj; 
headingc'spout 



P"»"0INTER w »0»0»2)i 



■ -DS2C0) i 
LflBLCNEXTSPQUT) 



HEADINGC'NEXT 
DA(SPOTABLE); 



SP","QUT 



%0#0#2)i 



LABLCPUTSPQUT); 

HEADINGC'HUT 
DAfSPOTARI E); 



>PO","UT 



'>Q,Q>2)» 



LABLCCHAR); 

HFADTNGfWCHAR 



ItQiSLtSLLLll 



DSico); 



% 

JL 



LABL(KEYINPOlNTERjr 

HEADINGC^KEYIN 
DS2fO)? 



P%"OlNTER ",0»0#2)J 



LABL(SPOSTATUS); 

HEADINGC 



■ SP G STA'T'TUS 



' » > Q t 7 ) i 



X 



dsko); 



% 
% 



END OF SPO STORAGE/ 
THE NEXT PRPCEDLRE CONTAINS TmBLES NiZEUED BY THE SpQ 



X ROUTINES, 

X 

PROCEDURE SPOTARLES; 



40464410 
40464420 
4Q46443Q 



#0464440 
40464450 
40464460 



40464470 
4O4644B0 
40472000 



40503000 
405Q400Q 
40505000 



4C5C600Q 
40507000 

4 0ho ao oo 



40509000 
40510000 
4 051 10 



40512000 
405130C0 
4Q514000 



40515000 

40516000 
4 05? 9000 



40530000 
40531000 
40532000 



40533000 
40538000 
40 5 3 9 00 



40540000 
40541000 
<lOSti?000 



40543000 
40544000 
40545000 



40546000 
40547000 
4054d00n 



40549000 
40550000 
40551000 



40552000 
40i353000 
4Q565Q0Q 



40566000 
40567000 
40568000 



40509000 
40570000 
40571Q0Q 



40572000 
40573000 
4Q 574 0Q Q 



40575000 
40576000 
40577000 



40578000 
40579000 
40580000 



:!8 



BFGIN 



>r 



i 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 



15 
16 



17 
18 
19 
20 
21 
22 



23 
24 



25 
26 
27 
28 
29 
30 



31 
32 
33 
34 
35 
36 



39 
40 

41 
42 
43 



45 
46 
47 
48 
49 
SO 
51 



52 
53 



54 
55 



56 
P7 



rlal segment; 



lablcspotablej; 

HEADINGC'SPO TAB M » W IE3 n ,0,Q*2)i 
FOR TT t= Q STfcP 1 UtvTTL 11 nn O.SPfflW 



LABLCSPUHAX); 



LABL(SPOMESS); 
FILL ATEMPt*] WITH 
4"4E4F?05?",4"45S3 c 704F",4"4E5 3450n". 



^"AE4F20 4D"^"454JvD'l"">^ , Ny t j:iL; JhV'% 
4"4E47 2040 "» 4 "455 35 34 i"» 4 "-4 ' 4 'JO 5 4 "* 
4"5?41 4C53", a"'404954?J"> 4" 4l4^t- 5y"> 



4 M 54004E4F"#4"<;05 3!395.r , *4"b4ii5'4D £ >0"* 
4 ,, 4C49 4E4B'V^"Un4i'52?0"j.4"4Li|F5420"* 
4"5?454 144".a"5Qn na3S;>">4",j0S?454r, 



4 "4 4 2 04 348" / 4"454 34B0U" » 4'N 3522 049"* 
4"4E56 20 4 3'%4 , '4a5 2a04C"*4"b0 20aE4F ,, » 

a ,,t ii42n!)2a^'S4"4i44ri9nu" t 4"' l 3gsi2u'» ) 4£ ,, ji 



4 M 54204 348" * 4" 454 34BQD"'4 ,, 5 2452045" # 

4"iE544552"*4* , 204B4549»<,4"494£OD4 3«» 
ft*t,-4PflriiFfl.«}w.fl''a^Haii0itFw</t«flFgft^s.n3w. 



4"5441424C"*4" 49534845 "*4"44004C4 9"* 
4"4E45 2049'S4"4E20!35bj"j'4 M rf4 30D4 35U"» 
4"2n 4 E /| F5 4 "t 4 "205245a i ' , »4"4459(l |, : ) 5Q"» 



4 M 554E4 348"*4"20 4 34845 ,, >4 ,, 4 348004 3"> 
4"5220494E'%4"56204 34F M » 4" 44450000" ; 



FOR II !■ STEP 1 UNTIL 53 
DS4CATEMPCH])' 



00 



IF BCLPUNCHTOG OR EBCD ICPUNCHTOG THEN 
BEGIN 



LABL(CPSTR); 

DS3C4"43500D")> 
Otili 



% 



rnR n »» "fw'». M nw.«« ■*."R»'.»f». nsH.wpw t iinw.HMM.wsw P ti[w 



00 MSGCII ); 



OSHCR)i 



FOR II li 
DSHCRM 



"N*,"Q«*» ♦*#"M , '* ,, E">«M H DQ MSS(U); 



40561000 
40582000 
4 05 h 30(10 



40584000 
40585000 
anbfi6nnn 



40567000 
4 0598000 



40590000 

40591000 
4Qb9lQ i,Q 



4 5 9 10 20 
4U5 * 1G30 
4 5 9 I U 4 



40591050 
4 5 9106 

4059 yo 7 a 



4C5910HG 
4C59j,090 

_a 5 ^ 1 1 o- 



40591H0 

4059H20 

.40591130 



40591140 
40591150 
40591160 



40591170 
4059H80 
40591190 



40591200 
40591210 
40591,220 



40591230 
40591240 
4059125Q 



4059126C 
405vl270 
4Q591?flC 



40591290 
40591300 
4Q593000 



40594000 
40595000 
4 0597U0 



40599000 

40600000 

JlOftfllOOO 



FOR II »» "V"*"l«t "S"* "o M * "1"* "N"* «G M * " "* "M"* "t"# "S"* "S"* "A"* 40603000 

"G"*"E" DO MSUC11); 40604000 

flSl LCJOi ; „ 40605000 



FOR II *» W T"*"R H * M A"#'?W W » ,, S"# M M W »»'I H # W T , %" "/"A' 



w t* no MUG (I I )? 



QS1CCR); 
-EUJB II Is "r>"fl"i!L 



40606000 
."B"^"*"!*"* 40608000 
_ 4n609f)ftn 



OSKCR); 



»K" DO MSGClDi 



40610000 
40611000 
"»;'S%"Y"» "S".*T"."F","M»," »,"L"."I w . w N w .*f>6) 3nnp 



40614000 
40615000 
4Q 61 60 Q Q 



|4H 

Ml 

l_ 

Ib2 
h3 

ij 

: ,6|| 



h 



i 

2 
3 
4 

6 
6 

7 

e 

9 
10 
11 
12 
13 
14 
15 
16 
17 



18 

19 " 
20 

21 



22 
23 



24 
25 
26 
27 
28 



29 

30 



31 
52 
33 
34 
35 
36 



37 

I 38 

39 

40 

! 41 
42 
« 



♦5 
46 



«8 

49 

I 50 



1ST 



51 

52 

I 53 

54 



55 
| 56 



FOR II := "C»,"H"p" " 

jc msgcid; 

D ti 1 C C R ) i 



" " . 



' > M H"»"E","A">"D' 



i Y»» 



40618000 
40619000 



FOR II »■« ♦♦C M f"R M »" "» ,, R'V M E"#'»A">''D ,, , M 

— : — ILKi! nn MSfif r p: 



«,«c"* m h h * , «e">"c ,, # 



USKCR)/ 



FilR II ?c "C"t"r?'-L 



4 0621000 

40623000 
406?4nnn 



DSl(CR)* 



'»"l"f "i V',"v"." "."C"."h"."R" np MS fif [i) ( 



40655000 
4 626000 

406<iHO0U 



Jir 



JLRJ 



oc msgc m; 



"n".»y»' 



DSJLCCR)/ 



FOR II !» ,, P»,"R»*"rS"N"»"T»%" " » "C"* "H"* "£" , »'C% M K" 
DO MS6( ID? 

nsucRW 



ram n ?= "R 1 



'E"#' 



l * ,, L"»"rV*'T","[S , 'ri , V 



"l"t"M" on y.MU t ,i j; 



i, »k «,«£«, My.., 



o$iccr>; 



.FC1R ... f T i a "C" » "II" . "N" . w.N»« . »k WyWfrw.. WT tty »« J w . nflw . w.mw . w 
" F. " > " S " , " T " > " A ' ' > " d " , " L '% " I " , •• 6 " , '• h " * " £ '% " | 

o a m s q c 1 1 ) ; 



% 
% 



.S 1 ( C R 3 i 



EN0 OF SPO TABLES; 



% 
% 



punch-interrupt 
hanole the card 



is a procedure which 
punch interrupts. 



CONTAINS THE CODE TO 



PROCEDURE 
BEGIN 



punchinterrupt; 

RFAI SFfiMFNT? 



DEFINE LOADANDPUNCHCZZ) = 
BEGIN LOADXCZZ); 



btoccpwrite); end*. 



LABLCCPINTERRUPT); 
HEADINGC 
STCCPTFMP); 



'C.P lNTE"» w RrtuPT %0#0>2)J 



tcb#a>; 
T(0#o; 

ST(CPTFMP?)i 



TCQ^A); 

Ta*o; 

STfCPTEMP3) i 



spi; 
sen(cpbusy); 

Q0T0(CPFINISngD3f 



L0HDC64); 

MINJ 

ibf; 



CSQ(L0C+3); 

LOftO(PRECISIONCON); 
-IPJJ 



40629000 
40630000 
40ft V^QQQ 



4063300 
40634000 
40 6 3 50 QjQ- 



40637000 
40638000 



40640000 
40042000 

4()6 4 3()f)(i 



40644000 
40645000 
4Q647Q0Q 



40648000 
40649000 
40630000 



4.0651000 
4065H00 
4 Q65 1 HQ 



4C652000 
40653000 
a^0(.00flQ 



45001000 
45002000 
4S0Q3fln0 



45004000 
45005000 
<t '.006000, 



45007000 
45007100 
45008000 



45009000 
45010000 
45010100 



45010200 
45010300 
45 1040 



45010500 
45010600 
45010700 



45010800 
45010810 

45 1 830 



45010900 
45011000 

45Qmnn 



45011200 

45011300 
45011400 



i 
i 
i 



,,41 



ll 

"1 

■)f) 



1? 
<>1 



>r 



12 

13 

I 1« 
IS 
16 
17 
IB 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 ~ 

I M 
33 

34 

! 35 

36 

37 ~ 

I M 

39 

40 
! 41 

42 



43 
i 44 
45 
46 
47 
48 
49 
SO 
51 
52 
53 
54 
55 
56 



*i 



SrcCPRESTOKEPRtClSION); 

LOAoc-a); 

stcpc2); 



SP2J 

OESCCPUNCHBUFFER)! 
T<C»X)f 



450U500 
45015000 
45016000 



LOAD(20); 
TCC#A)/ 

SEN(CPFIRSTFCUR)J 



45017000 
45018000 



INCR(X»X)) 
LABLfCPTRANSFFRQATA); 



45024000 
45025000 
ft'iUgSlOO 



HEADINGC'CP TRAN"#"SFbrt Om%"TA %0*3)J 

spi; 

FOR SEGM E NT 8s ST E P 2 UNU l . 19 UU UQ Al 3 A fruP U N C H( S E GM E NT )} 



45025500 
45026000 
45027000 



AOOR(A#X); 

spi; 

iNCREMENTf PC2W 



45028000 
450*9000 
45030000 



saz; 
goto(cptransferdata); 



LABUCPRESTOREPRECISION); 

HEADINGC'CP REST"»"ORE 
DS 1 (0)J 



PRE M , W CISIQN %0;3); 



ihd; 

CSQ(L0C+3); 

spi; 



EOA0C4); 
MINI 
SP4I 



L0ADCCPTEMP3); 

TCC#Y); 

Tf A»Q); 



tOAD<CPTEMP2)J 

t<c»o); 

Tf A.EU; 



loadccptemp); 
ibe; 

CSTJ 



LABU<CPFINI5HED); 
HFAnTMfifCP 



FTN1">"SHED 



PRECISION ;« \i 

funccpclear); 

SFNfr.PERROR); 



n ,Qt0t2)i 



G0T0(L0C*4); 

gotoccpuncherror); 
c la ; 



st(cpstatus); 
ens; 



LABUCPUNCHERROR); 

HEADINGCCP ERRO%"R 
PREP.TSTON ta i; ___ 



•%0#0#2XJ 



FUNCCPCLEAR); 
LOAD CLOCKS IT + 
.STCCPSTATUS); 



CPBUFFFUlLBXT); 



spout(cpck); 
ens; 



45031000 
45032000 

45o:nooo 



45034000 
45035000 
450 35400 



45035500 
45035600 
'1 50 3 57 



45035800 
45035900 
45036000 



45036100 

45036200 
45036 300 



45036400 
45036500 
45036600 



45036700 
45036800 
45036900 



45037000 
45037100 
45Q37200 



45054000 
45055000 
45056000 



45056100 

45056200 

-45057000 



45058000 

45059000 

-4 5059 1 Q Q 



45062000 
450/5000 
45 O7 6 Q0Q 



45077000 
45077100 
4507715 Q 



45077200 

45078000 
45079000 



45080000 
45081000 
45082000 



2; 



4; 

4J 

44 I 

f; 
4(1 
47 
48 
4Si 
SO 
in 
62 
53 
54 
bS 
bS 



>r 



9 
10 



END OF PUNCH INTERRUPT; 



X 

JL 



X 

% 
JL 



THE PROCEDURE PUNCH-CHECKER IS CALLED BY THE NOTHlNG-TO-DO 
LOOP TO CHECK THE STATUS Of THE CARD PUNCH AND PUNCH OUT ANY 
CARD IMAGES IN THE PUNCH ttUEUE* — - 



45063000 
45064000 
45065000 



PROCEDURE 
BEG I N 



punchcode; 



REAL SEGMENT; 
LABL(PUNCHCH E CKER); 



HEADINGC 

0S2C0); 

-S£4J 



'PUNCH CS"HECKER n ,Q,Q,2)i 



LOAOtCPSTATUSJi 

sodn; 

■G'OTQl'NOCPUNCHCHECKER)? 



SL1> 

sawn;. 

60.T0(CP1.0CKE0H 



LABLCCPREADYNOW); 

HEAniNGC"CP 



spi; 

loadccpstatus)/ 

a npm( c p bu fffuu l bit u- 



RFAP'S"Y NUW « . r> . n . y ) i 



SAZ> 

GOTO(PUNCHRETRY); 

spa; 



loadcpunchqueud; 

T(C»A); 
SUBCPUNCHQilFliFTAIUJ 



sazn; 

GOTOlNDCPUNCHCHECKERj; 
SENCCPREAnYU 



GOTO(CPNOTREADY); 
DESC(PUNCHBUFFLR); 
DF.CRf CtD) J 



loadccurrentpunchtable); 

T(C#B); 



LABLCPUNCHCONVERT )/ 

HEADlNG("PUNCh 

brhccpfftch); 



C H #"ONVtRT %0,0>2)> 



subccr); 
sazn; 

GnTnfnRnFRPiiNCHCYr.Lf ); 



subccompresschar - cr) 
sazn; 

QQTO(ExPANOFllNCHr)ATA); 



ADOCCOMPRESSCHAR}^ 
SUB(32); 

sann; 



L0ADC31); 

sug(6ft); 

san; 



goto(loc*6); 

ADD(64>; 
GQT0fl„nCf4)f 



45066000 
45087Q00 
45068000 



45069000 
450*0000 
45 0* 1 00 



45092000 
45093000 
45094000 



45095000 
45096000 
4 509/000 



45096000 
45099000 
45100000 



45101000 
45102000 
45103000 



45104000 
45105000 
45106000 



45106100 
45106200 
45106 300 



45106400 
45106500 
45107000 



45108000 
45108050 

4510ai00 



45109000 
45110000 
451 11QQQ 



45112000 
45115000 
45U6QQQ 



45117000 
45118000 
4*1125000 



45126000 
45127000 
45127100 



45127110 
45127120 
451 2713Q 



45127140 
45138000 
45139000 



45140000 
45141000 
45142000 



45143000 
45U4Q00 
45145000 



45146000 
45147000 
45149 000 



■Ul 



>T 



2 
3 
4 
5 
6 
7 

a 

9 
10 

ii 

12 
13 
14 
15 
16 
17 



19 
20 
21 



22 
23 
24 
25 
26 



27 
28 



29 
30 



33 



34 
35 



36 



37 
38 



39 



43 



46 



53 



55 
56 



L0ADC31); 
T(B>X); 

-svw 



ADDR(C*X); 

loadxco); 

IIMCR(0,X)» 



stxco); 

INCR(X»0); 
QQ.TO(PUNC H CUNVfcRT). 



LA8t(EXf»ANDPUNCHDATA); 

■ HFADTlMR(;"EXPAI\il) 



"."PUNCH n".»»ATA 



w tQf .p; 



BR^(CPFETCH); 
5P1J 
JLLAJ 



ST-CPC2)i 

BRM(CPFETCH); 
SPPf 



IN.CR(D#X); 
CLAJ 

stxcot; 



INCR(X^D); 

SPU 

I NtCREMENT(PCa)* 



saz; 
gotocloc-15); 

finTOCPUNCHCCNVFRTiJ- 



LA8LCBUANK0UTPUNCH)# 
HFAniNflC w QUNK 



n"."nT PnNir:»."h 



spa; 

INCRCD^X); 

cla; 



**0>3)« 



stx(o); 

INCR(X»0); 

spi; 



INCREMENTCPC2); 

saz; 

GQTO(RLAN KUUTPUNCh) ; 



LA8U(0R0ERPgNCHCVCLE); 
HFADTlMGf"ORnER P","UNCH 



CY",»CLF 



w *0»33; 



SP2; 

INCR(D^C); 
SUBC DES CEN OO FCP B UFF E R))? 



sri; 
spi; 

S TCPC2); 



saz; 

GOTO (BLANKOU 7 PUNCH); 
_S£3J 



tca*c); 

stcpunchoueue)^ 
spi; 



LABLCPUNCHRETRYJ; 

- HEA D IN C CHjNCH 



LOAO(CPBUFFFULLBlT 
ST(CPSTATUS); 
FUN(CPCLEAK); 



R%" E TRY ",Q,Q,c)» 



* BUSY8IT); 



45149Q0Q 
451bd000 
' 1 5 150 10 



45151000 
45152000 
45153000 



45154000 
45155000 
4 515 6 00 



45157000 
45158000 
i!59( 



Jli 



»000 



451O1100 
45161110 
45168000 



45169000 

42169100 



-45 



'105 



45U9U0 
45169H5 
4 5 10 9120 



45169125 

45169130 

-4 5 16 91 3 5 



45169140 
45169145 
45169150 



45169155- 

45169200 
45169300 



45170000 
451/1000 
45172000 



45173000 
4517 4000 
45175000 



45176000 
451/7000 
45176000 



45180000 
45181000 
4518 2 Q0Q 



45182050 

45182100 

-45182200 



45182300 

45182400 

-45182500 



45182600 
45182700 
4 5 18 7 00 



45187010 
45187020 
45187030 



45187040 
45187050 
4 51670 6 



45187070 
45186000 
45189Q0Q 



281 
SMI ! 



1 

411 
■U 
■» 1. 1 

4fl| 
471 1 
4H 

4a 
60 I 
CI 
52 
Vi 



J^ 



h- 



21 
22 
23 
24 
25 
26 
27 
28 
29 



l 32 



i 35 



36 

37" 



39 



»2 



I 50 



52 
I 53 



5ENCCPREADY); 
GOTOCCPNOTREADY); 

F U MCENAHUE C PlMT E Hh U P LU- 



FUNCCPINITIATE); 
GOTOINBCPUNCHCHECKER)* 



LABL(CPFETCH); 

HEADlNGCCPFETCH'SO^OfO* l)i 

os a ccn; 



tca#x); 

INCR(A#C); 
TCC» A ) i 



SP2i 

SUBCDESCEN00FPUNCH8UFFE8))/ 
-SAZJ 



G0T0(L0C*6>; 

DESC(STARTOFPUNCHBUFFER); 
TtC»A31 



LOADXCO); 

srb; 

GQTCTNnCCPFFTr.il); 



LABLCCPNOTREADY); 
HiL_Ll___ 



C P NflT ","K-AUY %fliO,JW 



spi; 
spoutccpnrj; 

SPli 



UOAO(UOCKBIT); 
STCCPSTATUS); 

60T0IND(PUNCHnHECKER)> 



LABLCCPLOCKEO); 

HE. AD INQ( W CP LOCK w » w _P 



'»Q»Qt 2 )i 



st.i; 
sann; 

G0TncCPL0CKED2U 



senccpready3; 
gotocloc+4); 

GOT[)INn(PUNCHCHFf:KFR)f 



loao(cpstatus); 
andm(255 - l0ckbit2)/ 

ADDtinr.KBTT?)? 



stccpstatus); 
gqtoindcpunchchecker); 



LABLCCPL0CKED2); 

HEA0ING( W CP L0CKP/"E02 
SFNfCPRFAHYU 



*,Q,0,Z)> 



gotoindcpunchcheckerj; 

LOAD(CPSTATUS)i 
ANOMCCP BU FFF UL LBlT j ; 



STXCPSTATUSJJ 
GOTO<CPREAOYNOW); 



END OF PUNCH CHECKER; 



-X- 



45189100 
45lb9200 
45190000 



45191000 
45192000 
'1 5193000 



451*3100 
451*3110 
4 5 1 9 3 12 



45193130 
45193140 

45193150 



45193160 
45193170 
451 ^ 3 1 80 



45193190 
45193200 
4qi93?m 



45193220 
45193230 
45193 2 40 



45193250 
45194000 
45195000 



45196000 
45197000 

45196000 



45199000 
452Q0000 
45P01000 



45202000 
45203000 
45?Q4Q0Q 



45205000 
45206000 
45207000 



45206000 
45209000 
45210000 



45210100 
45210200 
4521100Q 



45212000 
45213000 
45214000 



45215000 
45216000 
45217000 



45218000 
45218100 
45219000 



45220000 
45221000 
-4S222Q00 



X 
X 

JL 



THE PROCEDURE CPSJORE DECLARES 
BY THE CABD PUNCH CODE* 



THE STOWAGE LOCATIONS NEEOEO 



45223000 
45224000 
4 5 2 2 5 000 



45226000 
45227000 
45 228000 



*i 



fl 



^r 



12 



15 
16 
17 



18 

19 
20 



22 



24 
25 



28 
29 

30 

31 ~ 



34 
35 



36 

37 " 



38 
39 



44 
45 



49 
50 



52 



55 

56 



PROCEDURE 



PUNCHSTORAGF. 

3FA1. SF^yrsT; 



LABLCCPSTATUS); 

HFAfUNfiCCP 



ST AT%"l lS 



" f Q t Q 1 ? ) i 



DSi(O); 



L ARL CP U NCHCOUNT) i 



headingc'punch 
dsko); 



C"#"OUNT 



'#0#0»2)i 



LABKPC2); 

hea0ingcpc2 
dsho); 



'*e*0>o, i); 



LABUCCPTEMPj; 

HE A DINC( W CP 



DS4C0), 
L AB LCCPT E MP2X 



TEMP'SQ.QtO,! )j 



DS4C0), 
LABL(CPTEMP3)i 



DS4co>; 

I ABLCPRf.CISJONCnNJ? 



HEAOING( M PRECISI w , M ON CON %0*0»2)i 
0S8C4U3); 
Q S>U627 )J 



LABLCCuRRENTPUNCHTAbLDJ 

HEAniNGC"CURRENT"t" 



OA(BCUPUNCHTABLE); 
ABLtPUNCHBlirrrRSH 



PuNf.H "» "TABLE " , 1 3 ) i 



HFADINGC'PUNCH 
DSHO); 



B'%"uFFtRS «>\},0»i)t 



END OF PUNCH STORAGE; 



% 



452*9000 
45230000 

A^gjionn. 



45232000 
45233000 
4523annn 



45235000 
45236000 
45237000 



45238000 
45239000 
45240000 



45241000 
45242000 
45243000- 



45244000 
45245000 
45246Q0Q 

4524/000 
45247100 

45 2 4 715 0- 



45247200 

45247250 

.45247300 



45247350 
4524/400 
4^2474^0 



45247500 
45247550 
45247600 



45246000 
45249000 
45210000 



45251000 
45252000 
45253000 



45254000 
45255000 
45256000 



X 

% 

JL 



PUNCH TABLES CREATES THF. TA3LES NEEDED 
THE DClOOO. 



FOR PUNCH OPERATION ON 



45257000 
45258000 

452^9000 



PROCEDURE 
BEGIN 



PUNCMTA8LES; 

RCAI ABRAV -ABTQlA^fl 



45260000 
45261000 
05 2.6 2000. 



REAL SEGMENT; 
I ARKPUNCHflllFFER); 



4526 3000 
45264000 
4 * 2 6 Shan 



HEADINGC-PUNCH 8 w #"uFFER %0,0>2); 
FOR SEGMENT {« STEP 1 UNTIL 39 00 DS4C0); 
t Afit ggNDnrrBftnrrr»w 



45266000 
45267000 

4^266000 



45269000 
45270000 
4527Q10Q 



IF BCLPUNCHTOG 
BE G I N 



OR NOT BOOLtANCPUNCHDEFAULT) THEN 



LABU8CLPUNCHTABLE); 

H£ADING( M BCL 
FILL ATEMPC*1 WITH 



45271000 
452/1100 

527 1 3 



PUN M # H CH TA8L B »"E 



%0,3); 



452/2000 
45273000 
45276000 



..Hi 
'id 

■n|l 

|4:i| 
1 4.1 
45 
4li 

I" 
48 

\i 

60 



54 
'.5 
156 
5/ 



10 

11 



12 
13 
14 
15 



16 
17 
18 
19 



20 
21 
22 
23 
24 



25 
26 



27 
28 



29 

30 



31 
, 32 

33 

34 
I 35 

36 

37 " 
, M 

39 

40 
i 41 

42 

43," 



45 

46 

, 47 

18 



«9 
! 50 



51 

52 

I 53 



55 
I 56 



X 

_X_ 



X 

JL 



X 
X 

X 



4"00000006"*4"020600 42"»4"0 44 20222"* 
4 "08000 406 '•* 4 "08 1204 12"* 4 "0 4 220 AOQ"* 

a"0 2a 20400" » <rQ8«2naQQ w * 4"oanonion w * 



4 "10800040" *4"002000lG«* 4 "00080004"* 
4"0002000l"*4"OOl2040A"*4"G80A02l2"* 
4"OOOAOOBP"*4"00;>gQ900»*4"08ftQ06*0"* 



452/4010 
452/4020 

452/4030 



452/404.0 

45274050 
4 52/ 40 60 



4"08 200810" *4"Q808Q8Q 4" *4"Qti0 2080 1"* 
4"05000 480 " *<i"0 4400 4 20"* 4" 04100 408" > 
4"Q404n4Q?"* 4 "040 1028 0"* 4" 0240 02*0" * 



4"02 100208" »4"02040202"» 4*020 10822" * 
4"B600020A"*4"02820806"; 



45274070 
452/4080 
4 52 7409 . 



FOR II 

end; 



«= STEP 1 UNTIL 31 DO O'oU ( A TEMP C 1 1 J ) ; 



452/4100 
45274H0 
4 5274120 



X 
X 

X 

X 

X 



IF EBCOICPUNCHTOG THEN 

BEGIN 
UABLfFBCniCPUNCHTABLE); 



45274130 

45274140 
45 2 7 4 15 



HEADINGCiBCOIC M # "PUNCH TV" ABLE 
FILL ATEMPCO hjTH 

4" 00000 302"* ^"000^0 4 2"* 4" (J 44 20 22k"* 



VQ»3)i 



45274155 
45274160 
45274162 



4"08000902"*4"08120412"*4"0422080A"* 

4"02420400"*<l"C8 420 300"»4"02000100"* 
ziwftnqnnn t inw./i»ton2nnninw./iwnQnqnn<) t >w f 



45274164 
45274170 
45 27 4 1 8 



4"0002000l"*4"0082040A"*4"Oe22000A"* 
4"020A0206"*4"U0 220900"*4"C08008*.0"* 
4"0fl;nnflin»./["nfinflnftn4"»q"0hn 2 nflfi 1 ". 



45274190 
45274200 
45274210 



4 "05000 480"* 4 "044004 20"* 4 "0 4 100 40 8"* 
4"040 40402" *4"040 10 280" *4"0 2400 220"* 
4 w 0ai00208 w */i"0a040208"»4"0 20l088 3"* 



45274220 
45274230 
45274240 



4"06000482"* 4 "05020806" *4"0000G00O"; 
FHR IT :a Q STTP ) UNTTf 31 Ofl U U t A TFMP f J T 1 ) ; 



45274250 
45274260 
458/ 4 270 



45274280 
45274290 
45274300 



ENOi 



45274310 
45274320 

45274330 



IF 6CCPUNCHT0G 
RF6TN 



AND NOT (BCLRtADEhTOG 0« E8CD ICRE AOERTOG ) THEN 



45274340 
45274350 
45274360 



LABLCBCLCRDj; 

DS4(4"42434C0D M ); 
EAtOJ 



45274370 
45274380 
4 527 4 390 



IF EBCOICPUNCHTOG 
BFGIN 



AND NOT CBClHEADERIOG OR EbCDI CRE ADER1 QG ) THEN 



LABLCEBCCRD); 

0S4(4"45424344"); 



45274400 
45274410 
4 5 2/44 20 



45274430 
45274440 
45274450 



end; 



452/4460 
452/4470 
45 2/ 44 80 



END OF PUNCH TABLES; 



452/4490 
45284000 
45285000 



THE NEXT PROCEDURE CONTAINS THE CODE FUH HANDLING THE MODE M 
INTERRUPTS. 



45286000 
45287000 
70000000 



70001000 
70002000 
70003000 



r 



If: 



74' 

1 

28 
29 



,,., 



,0I| 

■1:> 

43 

44 
45 
46 

il ! 

48 

4U 
50 
!.1 
52 
53 
54 
55 
-if! 



10 

11 



13 

14 



15 
16 

17 



20 
21 



24 
26 



27 
28 
29 



30 

31 " 

32 

33 

34 

35 

36 

37" 



38 

39 



42 



47 
48 



«9 

50 



52 



55 
56 



PRUCEDURE MOOEMINTERRL'PT; 
% 
BE G I N 



REAL SEGMENT; 



LABLC INTERLOCK INTERRUPT )i 

HEADINGC"INTEKLU"»"CK 



iNTE"*"RRUPl %0>3J; 



spi; 

LOAD(MODEMFLAGS); 
ANOMCPS'i - UiTFRLOCKBtTn 



SEN(INTERLQCKQiM); 

G0TQCL0C+4); 

AHQC TNTERL OCKHl T ) 



ST(MOOEMFLAGS); 
SEN(INTERLUCKON)J 
QQTOCI nSSOFl NTfc ' R l OCK ) J 



LOADCDTRBIT + INTERLOCKBIT 
ST(MODEMFLAriS)# 



♦ CQNNECTEDB1T); 



SP21. 

disccignorering); 
stcringLabedj 



SPOUT(CONNECTIONMAOE); 
ENS; 



LABL(CARRlERINTER«UPT)i 

HEADINGC'CARrilER"*" 



INTERH%"UPT "»0*3); 



spi; 

load(modemflags); 
andmc255 - carriereutjj 



SEN(CARRIER); 
G0TO(L0C+4); 
ADDf CARRTCRR TTM 



ST(MODEMFLAGS )i 

gotoindccarrierlabed; 



LABLCRINGINTERRUPT); 

HEADING( M RING 



IN"# ,, TEKKUPT%0,0,2)J 



spi; 

LOAD(MQDEMFLAGi); 
ANUMCP55 - HTN GB IT )/ 



aod(rinGbit); 

ST(MQDEMFLAGS); 
GQTQINnfRTMm ABFI U 



% 

% 



L A B L C C L E A RT O S E NO INT E RR U PT 3 i 



HEAOINGC"CLEAR T%"0 o£N0 % " INTERNUM M PT 



S4){ 



SPI? 



LOADCMODEMFLAGi); 

ANDMC255 ■- CLEARTQSENUB1 T ) * 

S EN(CLE A RTO S ENU)J 



G0T0CL8C+4); 

AOO(CLEARTOSENOBIT); 

STCMODEMFLAGS)! 



?ouuaooo 

70005000 
70006000 



70007000 
70008000 
70 009000 



70010000 
70011000 
70012000 



70013000 
70014000 
70015000 



7001/000 
7001HOO0 
70019000 



70022000 
70023000 
70024000 



70025000 
70026000 

70037000 



70028000 

70029000 

-70030000 



70031000 
70032000 
700 3 3000 



70034000 
70035000 
70036000 



70O37000 
70038000 
70019000 



70041000 
700«2000 
7no<t3nnn 



70046000 
70047000 
70046000 



70049000 
70050000 
70051000 



70052000 

70053000 

-7QO 54Q 00 



70055000 
70056000 
7 0057000 



70058000 
70059000 
700 6 0000 



7006J000 
70062000 
70 06 3000 



70064000 
700C5000 
700 6 7000 



70068000 
70069000 
70072000 



Hi 

4-1 
45 

4fi 

|47 ' 

148 

4;t 

!«, 

'ci 

■.i 3 
S4 
( ,5 
Ib6| ' 

u 



>r 



19 
20 



22 
23 
24 
2G 
i 26 
27 
28 
29 



3) 
32 



34 

36 

37 " 



, 38 
39 



42 



i 47 
48 



I 50 



52 



55 

! 56 



GOTOINDCCLLARTUSLNIJcABlL); 
FNn OF Mnnrn tmtfrbupt mnft 



% 
% 



70073000 
70OM000 
7 CQ7 5QQ0. 



MOOFM RFCElN/F C.nOF CONTAINS THE-PfihfiffflMMTKiG MFTnrn TH 



INTURHRET* ANU STORE RECEIVED CHAhAClEKS. 



% 
% 
PRUCEOURE Mf i nEMHFC EI VE . 



70076000 

70077000 

Rrcrmr .7nt]7Bnn-n 



BEGIN 



REAL SEGMENT; 



BEGIN REAL SEGMENT; 
LA BunNlTI A TFR I CElVE) ; 



HEA0ING("IMTIAT'V M E RECEJ'V'VVE 



',0,3); 



DS2C0); 



sp2; 
funcgotobitmcde); 

DESCfSYNCHRnMZFRECElVF)/ 



STCRECEIVELA8EU); 
LOAO(NEXTACTIVITY); 



ADD(DES(ACTI0NLA3EL))i 

T(C*XH 

L Q A O XC On _ — - 



stcactiontype)' 

cla; 

st(nextactivity); 



ST(LASTACTIVITY); 
GOTOINDCIMTIATERECEIVE); 



LA8LCSYNCHR0N I IE RECEIVE); 

HEADlNG<"3YNCWR0 M ' w NnE 



RE M *"CE1V€ "*0*3); 



RSLEEP(O); 

spi; 

BTKMQnEMRFAPl; 



subcsyncph 
saz; 

ENS; 



LABL(SETUPFCRSYNC); 
HEAOINGf^jET 



UP ", w FOH SYN'VC 



'SO* 3)^ 



UQA0(-8); 
ST(RCQUNT>; 



RSLEEP(O); 
SPU 

incremfn hrc q unt?; 



BTHMOOEMREADn 
SUBCSYNCP); 

" " *■ " -i ■ ■ 



ens; 



LQADf RTOUMT 1 



saz; 
goto(setupforsync); 

rUN(GOTOBYTEMOO£)J 



70079000 
70080000 

70081000 



70082000 
70083000 
70084000 



700b5000 
70086000 
70087000 



70088000 
70089000 
70090000 



70091000 
70092000 
70Q93QQ0 



70094000 
70095000 
70Q96nnn 



70097000 
70098000 
7Q099QQQ 



70100000 
70101000 
70102000 



70102100 
70103000 
70104000 



70105000 
70106000 
70 107000 



70108000 
70*09000 
7Q 1 1QQ 00 



70U1000 
70112000 
7Q 113QQ Q 



70U4000 
70115000 
70116000 



70117000 
70118000 
70119000 



70120000 
70121000 
7Q122Q00 



70123000 
70124000 
70125000 



70126000 
70127000 
70 128000 



70129000 
70130000 
70131000 



?1 



44 ' 
4S 



4(1 
49 
50 
.'.I 
52 
=3 
54| 
■ 5 



>r 



10 

11 



13 



16 
17 
18 
19 

20 



25 



27 
28 
29 
30 

31 " 
32 



34 
35 



36 
37 " 



38 
39 



SP2; 

LQADCACTIONTYPE); 
STCRECE I VE LA BE.U; 



ens; 



UABLfl,nnKFORnATA)i 



HEADINGC'LQOK 
SPli 
RTICMnDFMRLAO)J 



FO'V'R ijATA "pd*Q>Z)i 



sub(syncp); 

saz; 

fns; 



bRMCINlTlATERECElVE); 
GOTO(SETUPFCPSYNC); 



labl(lookforenq); 

headingclook 



FO H ,"R ENQ %0,0»2>; 



receive; 
precision 

s u bcenq? ; 



«= 1; 



SA2; 

RSLEEPC IGNORED ATA INTERRUPTS); 



.ABLCFOUNOANENQ); 

HEADING("F0UN0 

SE2J 



A","N tNQ ",Q,Q,c)> 



NEXT(TRANSMITACK); 

RSLEEP( IGNORED AT A INTERRUPTS ); 



LABLUQOKFQRETX); 

HEAOINGC'UOOK 



FQ","R tTx %0,0,2)i 



receive; 
precision 

SUBfFnTil 



M 



SAZNJ 
GOTOCF0UNDANF.0T); 

iah; 



saz; 

ens; 

RSLEFPf IfiHflRmATATNTFRRUPTSlI 



42 



47 
48 
49 
50 



52 
53 



*L 



labl(iimcomming); 

HEAOlNG("INCHMMrS"NG 



" 10*0412;/ 



SP2; 

LfUn<MOnEMPOlNTER)J 



saz; 

'stind(unitupdate); 
cua; 



stcmodemp0inteh); 

spi; 

incbementc tr a nnq); 



SUB (58); 

saz; 
gotoclqc+6); 



lqadc48>; 
stctranno); 

finTn(LOnKFnf>WK-ADEWH 



70132000 
70133000 
7 Q 1 34 Q QQ 



70135000 
70U6000 
701 3 70Q0 



70138000 
70139Q00 
70UQ00Q 



70141000 
70142000 
70143000 



70144000 
70145000 
70146000 



70147000 

70148000 
70U9QQQ 



701^0000 
70151000 
7015 20 00 



70153000 

70161000 

■ 70 1 62000 



70162100 
70162200 
701ft^00n- 



70166000 
70167000 
70168000 



7Q16900C 
701/'0000 
70171000 



70172000 
70173000 
7017400U 



701/5000 
70176000 
701/7000 



70178000 
70179000 
7ni8Qnnn 



70181000 
70182000 
70183000. 



70184000 
70185000 
70 1 86 



70187000 
70188000 
7Qlfl900Q 



70189100 
70190000 
70 1 V 1000 



70192000 
70193000 
701940 00 



70195000 
70196000 
7019 7000 



-P 



|47 I 

48 
'4a 
|50 

hi 
\b2 
I'll 



JEP 



70198000 
70199000 
70 2 0OOQU 



70201000 
70202000 

70 ^ 07100 



7G207lO!i 

702u/H0 

70207120 



70207130 
70208000 
70209000 



7021Q0QO 
70211000 
7 ^ 12 



70213000 
70214000 
yn2i5nnn 



70216000 
70217000 
70218000 



70220000 
70221000 

70 2^2000 



70223000 
70224000 
702 2 5000 



70226000 
70227000 
70228000 



70229000 
70230000 
7Q 23 1Q Q Q 



70232000 

70233000 
702*0000 



70235000 
70236000 
702370 00 



70238000 
70239000 
7Q 24Q QQQ 



7024100U 
70242000 
70242100 



70246000 
70247000 



70249000 
70250000 
7025100U 



70252000 
70253000 
70 25 40 00 



70255000 
70236000 

702^7000 



70258000 
70261000 
70262 000. 



IV ' 

■ttl 
'■n 



2 



10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 



24 
25 
26 
27 
28 
29 
30 
31 
J2 
33 
34 
35 
36 
37 ~ 

38 

39 
40 
41 
42 



45 
•6 

, *7 
18 



LABL(LASTTRANOK); 
HE A DINGC UA ST TR"*"AN UK 



' » Q*Q»i,)i 



sp2; 
l0 a d(m0pempg 4 ntew), 



SAZ, 

SriND(UNITUPDATt); 
CLA.f, 



ST(M00EMPQ1\TE«); 

spi; 
in cre me ntc tr anno) i. 



SUBC58); 

saz; 
our u t L oe+ 6j; 



10 AD (48); 

ST(TRANNO); 

BRMfFTWO-AMFS.SASF)i 



PRECISION :s 2i 

sazn; 

finTncCLnftEThELtNE?i 



N£XT(TRANSMITM5G); 
RSLEEP(IGNOREDATAlNTEHRUPTo); 



LABLCCLOSETHELINE); 

HEADINGCCLOSE 
NEXT(TR A NSM,ITE O T)* 



T"»"HE LIiME"/0,0#2ji 



RSLEEP( I GNQREO AT A INTERRUPTS); 
tABUCLOOKFQRACK); — 



headingclqdk 
receive; 

PRECISION is U 



FQ"#"R mCK ">0#0*2)' 



SUSCNAK); 

sazn; 

GOTncFOUNOANAK); 



ADD(NAK - 
SAZN? 



ACK)> 



GOTO(FOUNDTHEACK); 
1AR1 



saz; 

GUT.0CL0C + 7); 
N E XTCTR A N S MIT A CK); 



R5UEEP( I GNOREOAT A INTERRUPTS); 
LARLffnuNOANEnTW 



headingc'touno 
spi; 

LQAnCMOQEMFLAGS); 



A% 



! N L"T H #0»0#2); 



49 
I 50 



51 

52 

I S3 

54 



AN0M(63); 
ST(MOOEMFLAGS); 
-SJL2J ____ 



55 

i 56 



cla; 
stclastactivity); 

SUMOnFMSTATt.S): 



STCNEXTACTIVITY); 

RSLEEPC IGNORED AT A I INTERRUPTS); 



>T 



10 

11 

12 
13 
14 
15 
16 
17 



19 
20 



24 
25 
26 
27 



28 
29 
30 

31 " 
32 



33 
34 
35 
36 
37 ~ 



38 
39 



47 



49 
50 



52 



lablcfdundtheack); 

HEADIi\G( m F0UN0 



T"*"hE ACK ",Q,Q,2)i 



5P2; 

NEXTCTRANSMITHSG)> 

RSLEEPC IGNUHEDAT AlWTEHKIJPTh )i 



LABUFOUNDANAK); 



HE A DINGCFQ U ND A' 



iiAA_ 



'*Q*Qr ' i)i 



spz; 

NEXT(TfiANSMlTEi')T) i 



RSLEEPC IGNORED ATA I wTEKrtUPTb ); 
I AMI CQFCYPHFRRFSPPNSF Li 



heading("decyphe"#"n 
receive; 

PRECISION Is M 



RESPO%"NSE 



n »Qp 3ii 



SUB(NAK); 

sazn; 

60T0,(RETRY.) 



aodcnak • ack); 
sazn; 

GnTOC LA STTR A K i OK 



y, 



iar; 

SAZNj 



GOT.OCFOUNOA.NENQ). 



tar; 



sazn; 

gqtocfqundaneot); 



ADDCEGT - SOH); 

sazn; 

finTfKTNCnMMINfi) 



sp2; 
c la; 



ST(MODEMSTATUS); 

STCNEXTACTIVITY); 

RSLEEPCTfiNOREOATAlNTERRllPTh); 



LABL(RETRY); 

HEADI,NG("RETRY 



"iQtQrQtj.)} 



SP2; 

NEXTCTRANSMITMSG); 
BRMfFlMOAMFSSAGF); 



RSLEEP(lQNUREnATAlNTERRUPTd); 
LARI, Ct nOKFORHFAOFR); 



HEADINGCLOOK FO"#"R HEADE"*"R 



%0#3); 



RSI.EEPCQ) 



spi; 
initializebcc; 

ST(MC3>; 



receive; 
spz; 

ANOMf 1S)t 



70*03000 
702o4000 



70266000 
702o7000 



JLOi 



1000 



70269000 
702/0000 
702/1 Q Q Q 



70272000 
70273000 
702/ 40 00 



7027500C 
702/6000 

7Q2^7onn 



702/8000 
70279000 
702 8Q000 



702t31000 
70282000 
70 283 000 



70284000 
70285000 
70286000 



70287000 
70*88000 
70^ 90 



70290000 
70291000 

7029?nnn 



70293000 
70294000 
70395000 



70296000 
70297000 
702Vfl0nG 



70299000 
70300000 
70a< J 10 Q q 



70302000 
70303000 

70300000 



70305000 
70306000 
7040 700.0 



70308000 
70311000 
.10311100 



70312000 
70313000 
70326000 



70327000 

70328000 
70329000 



70330000 
70331000 
703 32 000 



70333000 
70334000 
70335000 



4i 
1-1 
H-j 

lie 
4/1 
♦a 
^■1 
so 
'11 

bi 



66| I 



) « 

9 
10 

12 
13 

15 
16 

18 

19 
| 20 

21 

22 
I » 

24 

25 
| 26 

27 

28 

I 29 

30 

31 ~ 
I 32 

U 

34 

; 35 

36 

37 ~ 
38 
39 



40 

i 41 

42 

43 



45 
46 

► « 
48 
49 

| 50 
51 
52 

} 53 
54 
55 

I 56 



ADDCDESCPOWF.RSOFlO)); 

T(C*x); 

i.nApxcoi; 



SR8) 

STCUNIT); 

RSLFFPfOir 



receive; 
SP2; 



AOD(UNIT); 
STCUNITNO); 
SlA-i 



ADDCDESCOUTPLTUNlTTABLtiJi 

tcc#x); 

iq a om co,); 



stcunit); 
sazn; 

ttOtOCHL)i> 



BRMCSETUPUUUFU); 
RSLEEP(O); 



-*- 



receive; 

STCMC3)/ 

SUB(RCCNO); 



saz; 
goio(baorecm:)> 

ST(MC3)i 



LABLCM00EMLAB1); 

HEADING ("MODEM 



ft . M , 



">o»o» ; a}r 



RSLEEPCO); 
RECE I VE , ; 



PRECISION : 

SUB(STEXT); 
SAZ? 



M 



GUTO(FOHMATERROR) j 
LOAO(UDLENCTH); 
STfHrnHNTT i 



LOADtUBTosS); 
ANOM(ENDPOlKTBlT)i 
SAZN ? 



GOTOCLQC+10.); 

SP2; 

LOAD(MQDEMPQINTER); 



ST(FIRSTPOINTER); 
BRMCMODEMSTCRE); 
CLAj 



STCSTOREDCOIKT); 
I ARl'(STQRFAMESSaflFW 



HEADINGCSTORE A% M MESSAG% M £ 



n *0*3); 



RSLEEPCO?^ 



receive; 

PRECISION 

stcmc2?; 



s= i; 



subcetx); 
sazn; 

GOTOfFnM); 



70336000 
70337000 

70338000 



70339000 
70340000 
7n3aan.nn 



7034400C 
70345Q0C 
703 46 000 



70347000 
70347100 
70349000 



70350000 
703S10CC 
703 52 0CC 



70353000 
70354000 
70.155000 



703560 
7 3 a 7 C 

70 J i a fc i UlC 



70359QCC 

70359100 

■ 7.0 3 »0 OOP 



703olUC0 
7030200 
7 1 3ft 2 1. P C 



70363000 
7036400C 
70365000 



70366000 
70367000 
7 36 600 



70369000 
70370000 

7037 mnn 



70372000 
70372100 
70372110 



70372120 
70372130 
70372140 



70372150 
70372155 
70372160 



70372170 
70372180 
70372190 



70372200 
70373000 
70374000 



70375000 
70376000 
70377000 



70378000 
70379000 

70360000 



70381000 
70382000 
70383000 



it 



•„7 
4,1 



5 'II 

',5 



>r 



i 

2 
3 

4 
5 
6 
7 
8 
9 
10 
11 



13 
14 



15 
16 
17 
18 



19 
20 



21 



22 
23 
24 



25 
26 



27 
28 
29 



30 
31 
32 
33 
34 
35 



37 
38 



39 



40 
41 
42 



45 
46 
47 
«8 



49 

50 



51 
52 
53 

64 
65 



SUB (EOT - £TX)J 
SAZNj 
G f J TOCFQUND A NEQT 3j 



subccr - eot); 
sazn; 

GQTOCENO Q FB L OCK). 



SUB (ESC - cr>; 
sazn; 

fin TDC BLANK SUPKE SSI UN .1 



spi; 

L0AO(MC2)> 

BRM(MODEMSTORE) 



spi; 

incrementcmccunt); 
sazn; 



GOTO(LOOKFORENDQFBLOCK); 
GQTOCSTOREAMESSAGE); 



LABLCNOSPACEFOHMGOEM); 

HEAOINGCNO SPAC'V'E fUR M"»"UDEM 

saw 



o#3); 



INCREMENT(HECNU); 
SUB(58)I 
SAZ4 



GOTDCLOC+6); 
L0ADC48); 
.ST(RECNO); 



gpg i 

LOAO(UNITNQ); 

. BRMf MAKEN OTfi E ADY 



U- 



LABLCIGNOREMESSAGE); 
HEADING (" I GNQRF "> "MESSAGE"* > Of 2 ) * 



SP2I 

NEXTCACKNOWLEOGE); 

RSLEFPf iSNnHFnATAlwTFKRUPTSai 



LABL(EOM); 



HFAniNGCEnM 



'»Q*0>0»1 •>'> 



brmcplaceendcf8ufferp03i7i0n); 

spi; 

lcuckcr.i 



BRM(MOUEMSTGRE); 
RStEEP(CHECKBCC); 



l.A8t.£PLACEEND0F8UFFERP0Sni0N); 
HEADlNG( n P|_ACE E M #"ND 

: ns2f<nt • 



703ti4000 

7C3ti5ooo 

70* 66 000 



70387000 
70388000 
70389000 



70390000 
70391000 
7 3V200 



70397000 
703V710C 

70397110 



70397120 
70398000 
7Q40100Q 



70402000 
70405000 
7Q4060Q0 



70407000 
70408000 
70 4 U900 



70«10000 
70411000 
70 4 12000 



70413000 
70414000 

7041 , ^000 



70416000 
70419000 
70421000 



70422000 
70^22100 
70422200 



70422300 
70423000 
70424000 



70425000 
70426000 
7Q 427QQQ 



70432000 
70432010 
7043P020 



70432030 

70441000 

-7U442000 



OF B% M UFFER P M »*OSlTI ON"* 4 ) ; 
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70449000 
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ltjadcmcount); 

sazn; 

go t ocb ypasssupress -u- 
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70455000 
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LABLCBYPASSSUPRtSS)* 

HEAQING( w hYP ft S . S 



SPU 

tOAO(UDTOGS); 

ANOM(ENOPO I NTB l T)i 



;silPHESS M >0,0»2i* 



sazn; 

GOTDlNOtPLACEENDOFHUFi-ErtPOblTlON); 
U P . A D(S,TORE DC OUNT)f 



stindcfirstpointeR); 
gotoinocplaceendofbuffebposition); 



LABLCENDOFBLQCK); 

HEADING("ENQ 



GF 'S"BLdCK %0#0>2Ji 



BRM(PLACEENODFBUFFERPOSITION); 

LOAD(UBTOGS); 

ANPM(8>* ^_ ^_ 



saz; 

G0T0.CL0C + 7)J 

l,.QADCCR).8 



8RM(M0DEMST0RE)I 

SP2; 

LOiDCMOnEMPOINlTERif 



STCFIRSTPQIMER); 

SPU 

LOAD(UDLENGTH) ; 



ST(MCOUNT); 

lOAO(UOTOGS); 

A MDM(£N0P C UNf8 I T) i 



sazn; 
gqto(storeamessagli; 

BRHfMnnEMSTPRFn 



CLAJ 

ST(STOREDCOUNT); 

GOTOrSTQREAMrSSAGElJ 



end of segment; 

LABLCBLANKSUPRESSTON); 



HEAPING C "BLANK S"»"UPH£SSI % M 0N 



%0,3); 



RSLFFPfO); 



receive; 

SP2; 

ANPMC 15?; 



AOO(OESCPOWERSOFlO)); 

T(C#x); 

SPU 



LOADXCO); 
STCMC2); 
RSI, EEP(G); 



receive; 
precision 



la M 



ANDMC15); 

ADDCMC2); 

SAzm 



loaoo«o); 

STCMC2)i 

ADDtMCfUiMTM 



7046900C 
704/0000 
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704/2000 
70472010 
70472020 



70472030 
704/3000 
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704/3110 
70473120 
70 4 7 4 000 



70475000 
704/6000 

7047700 



70482000 
70482010 
70462020 



70482030 
70482040 
70483050 



70482060 

70482070 
70481000 



70484000 
70484010 
704 84 020 



70484030 
70484032 
70484034 



70484036 
70484038 
70484040 



70484050 
70484060 
70540000 



70573000 
705/4000 
705/5000 



70576000 
70577000 
70578000 



705/9000 
70580000 
70581000 



70582000 
70583000 
70 58 40 00 



70585000 
70586000 
70587000 



70588000 
70589000 
70 59Q0Q0 



70591000 
70592000 
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70594000 
70595000 
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san; 
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brm(supressit)* 
gqtocstqreamfssage); 



LABLCSUPRESSIT); 

HEADINGC'^UPRESS"." 



IT 
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DS2C0); 

LOAO(UDTOGS); 

ANnMCREVFR.SEalT.-)j 
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BRM(MODEMSTORE); 
10ADCMC2); 

BRH(Mn i.E HSTQ RE )f 



LCJAD(BLANK); 

BRM(MODEMSTPRE); 

6QTO,TNO(S>IPRESSIT)I 



labl(Reversesupress); 

■■.1.-nA hfR| AMtOt 



BRM(MODEMSICHE); 
U0AD(MC2)i 

RRMCMnOEMSTOHElF 



L0A0CC8MPRESSCHAR); 
BRM(MODEMSTCRE); 



LABLCTOOMANYBLANKb)! 

i.nAnfMcniiMT); 



cia; 

ST(MC2); 
CI, ft I 



ST(MCOUNT); 

BRMCSUPRESbIT); 

fiOTOf LnOKFllRENDnFRLUCK)/ 



LABL(CHECKBCC); 

' ; ' ■ ''--"•"■" HEADING ("CHECK 



"CC 
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spi; 

HTI(MnpFMRFAU)/ 



AN0M(lg7); 

SUB(BCC); 
SA7M8 



GOTO(LASTRECflK); 

nektctransmitnakj; 

RSLFFPf TfiMIRFnATAlNTFRRUPTS)! 



labulastrecokj; 
headings 



LAST Rr"»"C QK %0.0»g)i 



spi; 

INCREMfNTCRECNUJi 
SURC5R); 



saz; 

G0T0CLQC+6); 

1 n arc as r; 



70596100 
705V7000 



70&98100 
70598110 
7Q5V9Q0Q 



70600000 
70601000 
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70603000 
70610000 
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70612000 
70613000 



70614000 
70615000 
70616000 



70617000 

70618000 
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70620000 
70621000 



70625000 
70626000 
70627000 



70628000 
70629Q00 
70630000 



70631000 
70632000 
7063*1000 



70636000 
70637000 
70638000 



70640000 
7Q64010C 
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70642000 
70643000 
70644Q0Q 



70645000 

70646000 
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70652000 
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SP2; 

L OAD(M O n E MP Q INT E R j ; 



stino(unitupcate), 
cla; 



NEXT(ACKNO»«LEDGE); 
RStEEPCIGNUREDAT A INTERRUPTS; 



LA8U(BADRECNU)i 
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PRECISION is i; 
ADDCRECNO); 

Urfi „ 



SU8C58); 

sazn; 

i nAnc*iQ>i 



A00C58); 

sub(recno); 
sa zn; 



GOTOdGNOHEMESSAGE)^ 
L0AD(MC3)J 
STCREONQX 



cla; 

STCMC3); 
SPQUT(MISSINGMF,SSAGE),» 



G0T0(M00EMLAB1 )i 
LABLtrOHMATEHRUR ); 



HEADINGCFORMAT %"ERK.UR "#0,0#2)> 
PRECISION :- Xi 



NEITCTRANSMlTNAKj; 

RSLEEPC I GNOREDAT A INTERRUPTS); 



LABL(UaCJKFORENDUFBLUCK); 

HEADINGCLOOK FO%"R END 0","F BLOCK", 0, 3 ) ; 



PRECISION J» 

RSLEEP(O); 

RFCFIVE/ 
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SUB(ETX); 

sazn; 

GOTQCEH H); 



SUBCEOT - ETX)i 

sazn; 

GOTO(FnUNQANFm); 



subccr - eot); 
sazn; 

GQTaCEMWBLQCK); 



ens; 
i abl(mq0emstqre)1 



HEADINGC'MODEH 

0S2C0); 

spi; 
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STINO(MODEMPCINTER); 
INCREMENT CSTOREDCOUNT); 

SP2; 



70667000 

70668000 
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70670100 
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70729000 
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70737200 
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70774000 
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70776000 
707 77000 
70778000 



70779Q0Q 
70780000 
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70783000 
70784000 



70785000 
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IftlCHEMENTCMCOEMPUlNTEN); 
SU8CUN1TBUFFEREND); 
sann; 



G0T0CLQC+6); 
LOAD(UNITBUFFEHSTAHT); 
■STrMODEMPBINTEH); 



LQAD(MQDEMPOINTER); 
SUBIN0XUNITLIM1T); 
SA7NS 



6OTO(N0SPACEF0HM00EM)i 

spi; 

G aTQ I N DC Mn O EMSTU REU 



LABL(GETACHAR); 

MEADIlMGC'GET 



A C " > " H a h 



%0#0>2)i 



DS2<0); 

spi; 
SEN(nnnP ARTTY) ; 



G.QTOCFORMATERRUR); 
BTI(MODEMREAC)> 
A NPM(127) J . 



T(C#A); 
SUB(SYNC); 

sazn; 



ens; 

LQADCBCC); 
E0R(A,.C>; 



stcbco; 

T ( A* C ) } 

siiB'f nnwTRm An; 



sazn; 

gotocldc+6); 
t c a # r. ) ; 



GOTOINDCGETACHAR); 

loadcleftarrow); 

GnTniNDCfiFTACHAR 
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% 
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7Q769 l fl Q 



70789190 
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70789230 
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70789250 

70789260 
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70791000 
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70794000 
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70803000 
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70 807000 



708U8000 
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70610000 



70811000 
70812000 
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70815000 
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70820000 
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BEGIN 



REAL SGMENTJ 



70823000 
70824000 
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LABLCINITIATETRANSMIT); 
HFAnTNGf"INTTlAT"> w E THaNS%"MIT ",0,3>; 



70826000 
70827000 
708280 00 



DS2C0); 
FUNCTURNONRS); 



70629000 
70830000 
70 831000 



spi; 

L0ADC16); 

htn ; 



70832000 
70833000 
708 34npQ 



SP2; 

DESC(OKTOSEND)i 
ST(CLFA RT nSF MD LAREt.)l 
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DESCCXIT); 

STCCARRIERLA8EL); 

B E. SC( i CNOR ECA Tft l Nr & RRliPT S tr 



STCRECEIVEUABEL); 
FUN(GOTOBYTEWOOE)i 
RnTniNQfTMTlATf TRANSMIT)} 



LABUCQKTOSEND); 

HEAHTNGCTIK 



■ TO 5% "EM^ 
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SP2; 

.SENCCLEARTUSEND?;- 



ens; 

descc normal clear tusenuji 

■S Tf . CLEARTQSEND LA B E U i 



BRM(SYNCHROM2ETRANSMISSlON)j 

ens; 



LABL* SYNCHRONIZE TRANS MISS I ON) J 

HEADlNGC"SYNCHRO%"U/E 



TR", f, ANSMISS%"IC)N 



4) 



DS2C0); 

SP2; 

l.fUnCNEXTACTlVITVhi 



stcmodemstatus); 
add(des(acticnla6ed); 

T(C * X)J 



LOADX(O); 

STCACTIONTYPE); 
-&tM 



ST(NEXTACTIVITY); 

DESC(TRANSMITSYNC); 
STCTRANSMITLABfr.Ui 



spi; 

fun(gotobytemode); 
ci a; 



iar; 

min; 

TRANSMTTrSYNTPJ; 



loaoc-3); 

stcmcd; 

gqtqind(synchrumze transmission) j 



lablctransmitsync); 

heading( , 'transmi"/"t byn cs" , 0, 0,2 ) > 



spi; 

TRAKISMTT(SYNCP); 



io*D(Mcn; 
iar; 
STfMcn; 



saz; 

ens; 

SP2J 



load(modemstatus); 
sub(acknowledge); 
sazm: 



gotocacknowledgelastrec); 
loao(actiontype)> 

ST(TRANSMTTLAP&k)i 
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70639000 

7QHanocio 



70842000 
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70844000 



70845000 
70646000 
7QH470QQ 



70848000 
70849000 
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708131000 
70832000 
7Q85JQQQ 



70654000 

70855000 
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70857000 
70858000 
7QH59QQQ 
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70861000 
70862000 



70863000 
70864000 
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70866000 
70867000 
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70869000 
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70872000 

70873000 
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70675000 
70676000 
7Q677QQQ 



70878000 
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70880000 
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70882000 
70883000 



70884000 
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70887000 
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7Q89 20O0 
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ens; 



LABL(SENPACK)J 



HEADINGC'SENU AC"*"K 
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SP1? 



TRANSMIT(ACKP); 

NEXKRECEIVEREbPONSEj; 

GnT0(FINlSH1RANSMIT)J 



LABLCSENDANAK); 

HE A DIN G C' .SE ND 
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spi; 

TRANSMlT(NAKP)i 
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ST(NEXTACTIVITY); 
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gotocnolineactivity); 
nextcrecf.iveresponse); 

U0An(TRAN5MITMSG)J 



st(Modemstaius); 

TSLEEP(SENDAHEADER); 



LABLCNOLINEACTIVITY); 

HEADlNG("NO LINE"/" 
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AC1 Ivr'# M l Y. 
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TStEEP(SENOACK); 
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HEADINGCWAKE 
SJLii 
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TRANSMlTCENQPJi 

SP3; 

LOADf-TlMFfUJTW 



STCCLOCK); 

NEXT(RECFIVEACK)j 

GUTOfFINT Sri T RANSMlT) ; 



LABL(KILLTHELINE); 
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cla; 
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gotq(finishtransmlt); 
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70945000 
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70960000 

70961000 
7096?nnn 
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TRANSMlKSQhP)* 
INITIALIZEBCC; 
TSLEEP(0,t; 



spi; 

SENO(UOl)* 
T SL EEP(O ) ; 



spi; 

SENDCUD2); 
T S UEEP(O); 



spi; 
send(tranno); 

T S L E EP(O) ; _ 



spi; 

SENDCSTEXT); 
S&24 



CLAJ 
ST(McaUNT)| 



LABICTAGAIN); 

HEADINGC'TAGAIN n ,Q,Q*U»l)} 



TSUEEP(O); 

spi; 

brmcmodemfetch)? 



bUBCCR); 

SAZNJ 

GOTO(EOBj; 



ADO(CR); 
BRM(SENOAC); 
■SP2I 



INCREMENTCMCCUNT); 
GDTO(TAGAIN); 



LABL(EOB); 



HEAOING( w EOB 



'*0»0*0»1 li 



sps; 

LOAD(UMT); 
JiAZX 



GOTO(AODTOMESSAGE)) 
LABL(CLOSEMSG); 



SPJI 

SENDCETX); 

TSLEEP(O); 



SP1J 

SEND(BCC); 
NEXTfRFCETVFRFSPONSF)J 



GQTOCFINISHTrANSmIT); 
lARLCADDTOMFSSAGE)? 



heaoingcaod to 
loIOcmooempointer); 

SUBIND(UNITLIMIT); 



",«ME$5AGe%0*0>2>> 



SA*N; 
GOTO(CLOSEMSG)i 

sp 2; 



IBAD(U0UENGTH)J 

cia; 
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70976000 
70979000 
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70999000 
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71002000 



71003000 
71004000 
7100500 



71006000 
71007000 
71008000 



71008010 
71006020 
7100 803 



71008040 
71009000 
710 1 000 



71010010 
71023000 
71Q24Q0Q 



71025000 
71026000 
71027000 



71028000 
71029000 
71030000 



71031000 
71032000 
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71036000 
71037000 
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71040000 
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54 

55 
56 



addcmcount); 
subcmsmax); 

SA N / 



goto(closemsg)' 
spi; 

LQAD(CR); 



BRM(SENDAC); 
GOTO(TAGAIN); 



LABL(SENDAC); 

HEAOINGCbENO 



AC"»0#0»0»1)| 



DS2C0); 

spi; 

ANDMf \?7)i 



T(C»A); 
T(Z»X)J 

s o on; 



INCRCX/X); 

sri; 

SAJ4 



G0T0(L0C-5); 

t<X/o; 
'soon; 



GQTOCLOC+5); 
LQAD(128)J 

snnN; 



cua; 
nop; 

ADOR<A»C)J 



BTOCMODEMWRITE); 
T C C# A ) ; 
LO-DCBCOI 



eo*(a»o; 
stcbco; 

-DTntNntSFNPAC.lf 



LABL(MODEMFETCH); 

HEADlNG("MOpEM 



F"."ET.h " . Q , Q , 2 ) / 



DS2(0)/ 

spi; 

LPAnTKintMnnFMPnTMTFBW 



TCC/A); 

sp2; 
incr e mentch o demp oi nt _ k)> 



sub(unitbuffer-nd)/ 
saz; 

fl0tfUtQC+6)J 



LOAD (UN IT BUFFERS TART)/ 
STCMODEMPBINTER); 
-S_4J 



T(a»o; 
gotoind(mode»«fetch); 



lablcfinishtransmitj; 

■HEAOINGCf INISH 
ROF-J 



>"TRANSMI 



"#0/3); 



spi; 
cla; 

S T(MC1? J 



71049120 
71049140 
710 4 9150 



71049160 
71049170 
7lQfl9lB0 



71049190 
71082000 
71 Q 83Q0 



71084000 
71085000 
71066000 



71087000 

7ioaaooo 

7lQb900fl 



71090000 

71091000 
71092000 



71093000 
71094000 
71095000 



71096000 
71097000 
71098000 



71099000 
71100000 

7 n o i ooo 



71102000 
71103000 
71UU Q 0Q 



71105000 

71106000 
71107000 



71108000 
71109000 

7i lioonn 



71111000 
71111100 
7 1 U 11 1 



71111120 
71111130 
71 1111 40 



71111150 
71111160 
71111170 



71111180 

71111190 

-7-1 II 1200 



71111210 
71111220 
7 1 1 11 2 3 



71111240 
71111250 
71111260 



71112000 
71113000 
71U 3 1QQ 



71114000 
71115000 
71 1 16000 






2 
3 
4 
\ 5 
6 
7 

I 6 
9 
10 

I H 
12 
13 

I 14 
IS 
16 

i 17 
IB 
19 

I 20 
21 
22 

I 23 
24 
25 

i 26 
27 
28 

I 29 
30 



31 

\ 32 

33 

34 

) 35 
36 

37 " 
| 38 
39 

40 



GO 



i 41 
42 
*3 



45 

46 

> « 
18 

49 
| SO 
51 
52 



55 
I 56 



TSLEEP(O); 

spi; 

tr a nsmit ( s yncp)* 



U0AD<MCl)i 

saz; 

GnTntRFAnYTnoRHPLlNF)? 



IARi 
ST(MCl).; 

ens; 



LABUREADYT00R8PLINE); 
HFADTMfif"RFAn¥ T'S"n PHnP *.»... Tfc.r 



"iQ»3)J 



SP2; 

FUNCTURNOFFRS)? 



UOAO(MODEMSTATUS)i 
STaASTACTIVlTY); 



STCMDDEMSTATUS); 

UESC (IGNORED AT A INTERRUPTS)/ 

STtTRANSMITLABEL)* 



OESC(NORMALCARRIER); 

ST(CARRIERUABED) 

DF5CCLnQKFnRQATA)i 



STCRECElVELAHEL); 

FUN(GOTOBITkGDE); 

-tNSJ 



LABLCABORTTRANSMIT)^ 
HE A DIN G (" A BORT 1» » "R A NS WI T%Cl>0 , 2 } i 



FUNCTURNOFFRSJi 

spa; 



cla; 
st(mooemstatus); 

nESrCNHRMAI.rARRIER)? 



STCCARRlERLAflEL); 



I, ARI CSTUFFf T) J 



HEADI NGC "St UFFIT"#0*0# 0,i)| 



RQFJ 
RSI.FFPCO^I 



X 



LABL( IGNORED ATA INTERRUPTS)/ 
HEADINGC'IGKIORE ","DATM I n" , " TFHRUHT", "S 

SEN(OATAPRESENT); " 

FNSf , ; ____ 

bticmodemread); 

ens; _____ 



711X7000 
71U8000 
71U900 



71120000 
71121000 
71122000 



71123000 
71124000 

71125000 



71126000 
71127000 
71128QQQ 



71129000 
7 U 31000 
711 32 00 



71133000 
71134000 
711 43 000 



71144000 
71145000 
71146000 



71147000 
71148000 
71 149000 



71150000 
71151000 
71 152 000 



71153000 
7HS400Q 
71155000 



71156000 
71157000 
71157100 



71158000 
71159000 



71161000 
71163000 
71 1631 OQ 



71163200 
71163210 
71 ife33nn 



"'43 * 



71163400 
7.1164000 
7U65Q Q 



71166000 
71167000 
7116S000 



71169000 
71170000 
71171000 



END OF MODEM TRANSMIT. 



X 
X 
J 

X 

procedure modemcode; 

B EGI N 



71172000 
71173000 
71174000 



THE NEXT PROCEDURE CONTAINS MISCELLANEOUS MODEM CODE. 



71175000 
71176000 
71177000 



71178000 
71179000 
7U9OQ00 



% 



w 



10 



13 



15 
16 
17 



20 
21 



24 
25 



27 

28 

29 

30 

31 ~ 

32 

33 

34 

35 



36 
37* 



38 



41 
42 



49 
50 



52 



55 
56 



REAL SEGMENT; 



LA8LCL0SS0FINTERLCCK); 

HEADINGCLOSS 
SP1I 



0F%" INTERI% H 0CK 



%Q»3); 



LQAD(DTRBIT); 
ST(MOPEMSTATUS); 

FI.INC TURNONUTR 3 * 



SPOUT(NOSYSTEMLINK)> 

spa; 

ci a; 



ST(MODEMSTATUS); 
ST(NEXTACTIVITY); 

5P2/ , ___. 



ST(UNIT); 
OESCCANSWERRING); 
STtRlNGl.ABEL); 



ens; 

LABLCANSWERRING) 



HEADINGCANSWEH ","RlNfi ",0*0*2); 



FUN(TURNONOTH) . 



SP2; 

LQAD(LOOKFORRING); 
■ST(MQDEMSTATtSXj— 



ens; 

LARLftGNnRERTNG); 



HEAUINGC'IGNGRE ","RIl\G %0,0#2}> 
FUNCniSARLEycnFMlNTFRKUHT.); 



ens; 

1 AJELULXSiX£E£RXi 



HEADINGC'T SLEEP M »"ER 
.STfTRft\SMITLABEL)J 



" > t > 2 ) * 



ens; 

LA B UtR SL EEPER i ; 



HEADINGC"R SLEEP'%"E« 
S TCRECEIV EU AB E OJ 



'*0*0#2)» 



ens; 

LARLCTStFEPHFRE); 



HEADINGCTSLEEP 
DS2C0); 

sp?; 



V'HERE 



•*0#0»2}J 



load(tsleephere); 

st(transmitlabel)^ 

fns; 



LABLCRSLEEPHERE); 

HFAnTNfif WR5L FFP 



'^'HERE %0.0»2>i 



DS2C0); 

SP2; 

LQADtRSLEEPHFREU 



?HdlOQ0 
71162000 
711 B 30 



71184000 
71185000 
71186000 



71187000 
71188000 
7H8900Q 



71190000 
71209100 

-Zi,2ioonn 



71213000 
71215000 
71215100 



71215200 
71216000 
712 1 7Q0Q 



71218000 
71219000 

712 2 0000 



71221000 

71222000 

-71224000 



71227000 

71228000 

71 22 9Q Q Q 



71230000 
71231000 
71232000 



71233000 
71234000 
7123500Q 



71236000 
71237000 
7i23Hnnn 



71239000 
71240000 
71241000 



71242000 
71243000 
71244000 



71245000 
71246000 
71247000 



71248000 

71249000 

■2125Q000 



71251000 
71252000 
71253000 



71254000 
71255000 
71256000 



71257000 

71258000 

- 712590 00 



71260000 
71261000 
7126 200Q 



f 



47, 

4-1 
J<|4 

|4"' 
4f]| 



>r 



10 



12 



15 



18 
19 
20 



22 



24 



30 



31 
I 32 



33 



34 



36 
37" 



40 



43 



45 



46 



I SO 



JO 



55 

I 56 



stcreceivelabed; 

ens; 



LABUCFINDAMESSAGEJ; 

HEADING ("KIND 



A %"MESSaGE",Q,0,2)J 



DS2C0); 

5P2; 

OFSrcQUFUES); 



Tce#x)j 

tOADX(O); 

s tm x (2)8 



saz; 

gqtocfounotrafkic); 
r o f ; . 



uoADca); 

AOOR(C#X); 
l.OADX(O); 



SUBXC2)i 
SAZI 

fi nTn C F O UNDTR A FF i C).i 



sovn; 

goto! ndcfindamess age)/ 
sof; 



GOTOCLOC - 15)i 
L AB LCFQUN I OTRAFF I C); 



HEAOINGC'FOUNO 

T(X#C)i 

snftfnrgfnnfrn F ovi 



T M , w RAFFlC M ,0,0#2)i 



SR1> 
SRI J 
STCUMITNQ3J 



sui; 

ADO<DES(INPUTUNITTABLE)M 

T(r.x); 



LOADXCO); 
ST(UNIT); 
BRMfSFTUPUDTNFD?? 



cla; 

CM.AJ 
GnTfiTMnfrTMruursRAnry 



LABICSETUPUDINFQ); % THE 
HEAPTNGf"bET UP « 



71263000 
71264000 
7l2ftS000 



712-96000 
71297000 
712V8000 



71299000 

71300000 
71342Q00 



71343000 
713*14000 
71344100 



71345000 
71346000 
713 4 700 



71348000 
71349000 
71350000 



71350100 
71351000 

7 1 3 5 2QO0 



71353000 
71354000 
71155000 



71356000 

71357000 

-71358000 



71359000 
71360000 
7 1.1 ft 10 00 



71361100 
71362000 
71362100 



71362200 
71363000 

7i36anon 



71364100 
71364200 
71365000 



71366000 
71366500 

713 670 



PRECISION »* 21 
052(0); 
OFSf.fTnGTAftl FW 



A REGISTER SHOULD 
,"uD InFU%0. 0,2)J 



CONTAIN THE UNIT % 



71368000 
71369000 
713 7900,0 



ADDCUNITNO); 

T<c#x>; 
lOAnxco)? 



71371000 
71372000 
71 373 000 



STCUDTOGS); 

OESC(tENGTHTABLE); 
AODftlfctTTNmi 

TCCjX); 

spi; 
LQAnxcn?; 



71374000 
71375000 
713760QQ 
71377000 
71378000 
71 379000 



ST(UDLENGTH); 

SP2; 

LOADf 13336 U 



71379100 
71361000 
71,302000 



71383000 
71384000 
71 392 Q0Q 



1 



h 

M 

liei 

I' 17 

48 



60 
51 

.S3 



i 2 

3 
4 

I 5 
6 

7 

I 8 
9 

10 

I " 
12 

13 

I '« 
15 
16 

I ,7 
18 

19 

i 2" 
21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 "" 

32 

33 

34 

35 

36 

37 ~ 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

&7 



ADDCUNITNO); 

STCU01)' 

DFSCfUNlTRUFFFKSTAR TTA HLL' )/ 



ADO (UN 
T(C*X) 
LOADXC 



IT); 

* 



STCUNT 
DESCCUI 



:tbuf 

JNITB 
A ODCUNIT) ; 



FERSTART ); 
UFFEHENDTABLE); 



T(C*X) 
tOADX( 

STftlMT 



; 

o); 

TBUFFERFNO); 



0ESCCUMTUPDATETA8LE); 

ADD(UNIT); 

T C Ci » X 3 ; 



LOADXC 
STtUNI 
TfCtX) 



o); 

TUPDATE)' 

i : 



o); 
empo 

ES Cd J N l TL 



LOADXC 
STCMOD 



INTER); 
I MITT A B L E), 



ADO(UN 
T(C»X) 
LOAQXC 



XT) I 

; 

o); 



STCUNI 
LOAOCU 

sm; 



TLIM 
NIT) 



IT); 
; 



ST(UNIT); 
GOTOINOCSETUPUDINFO); 



lablchd; 



SP?? 



HEADINGC'ri/L 



">o#o#u,n; 



DESC(UPDATEVECTOR); 
TC€#X)i 

SP4i 



LOADXC0); 
ST(QUEUES); 

LaADugjLU 



ST(KEYINQ); 

IF READERTOG THEN 
BEGIN 



LQADX.CB); 

st(cardreaderq); 
end; 



LOAOXdF REAOERTOG THEN 12 ELSE 8); 
ST(SPOUTQ); 
IP PRINTERTOG THFM 



BEGIN 

LQADXUF REACERTOG THEN 1* ELSE 12)} 
STCPRINTERO); 



ENOI 
IF PUNCHTOG THEN 
BEGIN 



IQADXC12 + (IF READERTOG ThEN 4 tLSE 0) + 

(IF PRINTERTQG THEN 4 ElSE ) ) ; 
ST(PUNCHQ L) fclE)* 



end; 



s*ux 



393000 
394000 
3V41 10 



394120 
394130 
39414Q 



394150 
394160 
3 9 4 17 



394180 
394190 
394200 



394210 
394220 
39 4 2 3 



394240 
394250 
394252 



394254 
394256 
3 942 6 



394270 
394280 
394290 



394300 
394310 
394320 



394330 
394380 
406000 



407000 
408000 
4U9QQQ 



409100 
434000 
435000 



435010 
435020 
435030 



435040 
435050 
4350ftO 



435070 
43508C 
435090 



435100 
435110 
435120 



435130 
435140 
43 51*50 



435160 
435170 
4 35180 



435190 
435200 
4 3 5210 



435220 
435230 
4 35240 



J ,r 'i 

,46, 

ill 

41)1 



CI 
62 
53 

561 ' 

3 



>r 



► 2 

3 

4 

► 5 

6 

7 

> ■ 
9 

10 

I I' 
12 

13~ 

> '« 
15 

16 

» « 

18 

19 
| 20 

21 

22 
I 23 

24 

25 
) 26 

27 



LQADcae); 
iah; 

STtTRAMNQ); 



ST (RE C NO); 

sps; 

LOAPfMOQEMSTATUS); 



SAZNJ 

ens; 

NE X TtACKNOWLEDUE) ; 



RSLEEPC IGNORED AT A INTERRUPTS); 
LABLtMAKENQTREADY); 



HEADINGC'MAKE 
PRECISION :s 2/ 
D S 2(0); 



NO%"T HEADY", 0,0, 2)i 



ST(MOOEMTEMP); 
AD0U2336); 
TCC»A); — — 



spu 

lOAD-(4"30">; 

flRMCNRSTORE); 



uo*0(4»'3i"); 

BRM(NRSTORE); 
SPA> 



RL8; 

BRM(NRSTORE); 
SP4? 



RL8J 
BRM(NRSTORE); 

spu 



28 

I 29 
30 

31 " 

I H 
33 

34 

I 35 
36 

37* 



I M 
39 

40 

I «1 
42 
43 

I 44 
45 
46 

I «7 

♦8 



49 

I 50 

51 
52 

I 53 
54 
55 

I 56 



LQADCCR); 
BRM(NRSTORE); 
§P 2; 



LO*0(MOOEMTEMP); 

ADDCDESCMASKTABLE)); 

TtCiiOl 



spi; 

LOAOX(O); 
TCCf A)? 



cma; 



LOAOCNRMASK).; 

ORR(A,C)J 

STCNRMASKU 



. Q.0TOlND<MAKEN0TRfAUY)i 

1 ari.cmakerfady)/ 

headingc"make re"#"ady 
precision i» 2; 

nS2(n>.t . ; .."■ _ > -■ 



*,Q,Q,2U 



TCCB); 
ADDU2336); 
T(CiA)i 



SPl I 

LOAOC240); 

MINI 



LQAD(4"30 M ); 
BRM(RSTORE); 

i.nAn(4 w 3g w )) 



8RMeRST0RE)i 

spa; 

, ,K,t»,B.i.. 



71453100 
71453300 
7145 340 Q 



71453500 
71454000 
71455000, 



71456000 
71457000 
714 58 



71459000 
71460000 
71A61000 



71462000 
71463000 
71 4 6 4000 



71465000 
71466000 
71467000 



71467100 

71467130 

714 7H Q 



71467150 
71467160 
71407170 



714 6 718 
71467190 
7l4<i7200 



71467210 
71467220 
714672 30 



71407240 
71467250 
71 4 67 260 



71497000 
71498000 
714990 0Q 



71500000 
71501000 
715 02000 



71503000 
71504000 
71 3 Q5 QQQ 



71506000 
71507000 
71508 000 



71509000 
71510000 
71511000 



71512000 
71513000 
71514000 



71518000 
71518010 

713 18020 



71518050 
71518060 
71518070 



71518090 
71518100 
71518110 



■■I,. 1 



BRMCRSTQRE); 7 lb 18120 

SP4; 71bl6l30 

^ R4*-6-; 7i b iai /« o 

BRMCRSTOREJi 71518150 

SPU 71518160 

LO A D(CR); — 715 1 8162 

BRMCRSTDRE); 71518164 

LDADC9 + (IF RtADERTGG THEN 2 ELSE 32) + 71518170 

(IF P U NCHTOG TH£ i ^ 4 EL S E 6 4 )) ; 7151 8 18 

MIN; 71518190 

SP2; 71518195 

nrscr masktari r)i 7 1 544000 

ADDRCB#C); 71545000 

T(C#X)J 71546000 

JiEU 715470Q0 



19 

20 



LOAOX(O); 7154B000 
ANDW(NRMASK); 71549000 
STtNRMlSKW ■ 71S5QQ0G - 

16 GUTOINDCMAKEREAOY); 71551000 

17 LABLCNRSTORE); 71552000 » 
,8 | HEADING ("MR STnR"» H E - ■ * t 2 ) * 7;55 20 10 — ;"' 

0S2(0)i 71552020 

BRM(CSTORE); 71552030 
■ . . "■ . ■ " ftpjy _ : , 71552035 — 

SOV; 715S2040 
23 | GQTOINDCNRSTORE); 7l5b2050 
24 .SPnHT(MTSSINGMt.SSAGF)l : ■ 7 1 552060 

25 GOTOIND(MAKENOTREADY)* 71552070 

26 | ' 71552080 
_ L tR|fB.STnnni 7 l 5'i2090 -I 

W HEAPINGC'R STORE"'6>0*Q,1)> 715S2100 l" 

DS2(0)J 71552110 

30 | RRMCCSTCIREH 7 1 552120 

SPU 71552125 

SOVI 71552130 

"L GOTOIND(RSTORE); 71552J4Q 

M LQAD(9 + (IF RtADERTOG THEN 2 ELSE 32) + 715S216Q 

35 (IF PUNCHTOG THEN 4 ELSE 64)); 71552170 

36 , MINI , 71552180 _.. . 

37 | GOTOIND(MAKEREADY); 71552190 

X 71552200 

M | l ARl (CSTQRE)J 7155 2.21 — 

HEADINGC'CSTORE ">Q>Q>Ufl)i 71552220 i 4 ' 

DS2(0); 71552230 

SPU . 7155 2 2 40 -■ ■ ■ ■- -f 

STIND(SOFTQTAIL); 71*52250 

SP2; 71552260 ;'/ 

: INCREMENT(SQFTUTAIL); — 7155227 Q 

SUB(DES(ENDQFSOFTBUFFER)U 7155228 

SAZ; 71552290 

GQT0(UQC»6U : : — 7155 23 00 . — - 

"I DESCC5TARTQFS0FTBUFFER)* 71552310 

50 ST(SOFTQTAIL); 71552320 

LnAntSQFTQTAH ); : i : ___ — , 71 5 52 330 ^ — 

SUBCQUEUES)i 71552340 

53 RDF; 71552350 

SAZNi- . 7 1 552360 

55 SOF; 71552370 

H NOP; 71552380 

; fiDTOTNfXnSTRRF)! . 7155 2 390 



|4b 

a 

M 

til 



>r 



16 



21 



24 
25 



> 26 
27 



I » 

30 

31 " 



13 



35 



37 



»3 



46 

I « 
48 
49 

I 50 



JJ 



3» 



52 
53 

54 



55 
I 56 



LABLCNORMALCLEARTCSENO); 
HFAniNGC'wnRMAL 



S'ODNJ 

ens; 



"r'YI 1 AH UL«JU] SEMJ tVJUXXi 



SP2; 
LOAD(LASTACTIVITY); 

SUHfTBANSMJTEnT^ 



sazn; 

GOTO(JUSTIDLEDTHLLINE); 
t.QACUMQflEMSTATUS-^ 



sazn; 

ens; 



spqutcclsbff); 
gotocaborttransmitj; 



UBLCJUSTIDLEDTHELINE); 
HEADINGC'OUST 
SPJJ 



IC'^'LEg THE 



%" 



LINE %0,3); 



load(mooemflagS); 

an0mc255 - lineactivebit - mystartbit)* 

STfMnnrMri Ar,<;); ______ 



ens; 
labucnqrm al c a rrter)« 



HEADINGC" NORMAL "/"CARRIER V 0.* 0/2 >' I 



SP2; 



LOADCMaOEMFLAGS); 

srs; 

sri; 



sodn; 
goto(carriercn); 

LfliDf Mnri PMSTATUSVl 



sazn; 

GOTQCFINDTHEACTIOiO; 
RR1 i 



soo; 
ens; 



rli; 
st(lastactivity); 

SAZN ,; 



ens; 

CUAJ 
STCMnnEMSTATUS); 



LABUCFINDTHEACTION); 

HEADIW6("FINP 



TH"*"E ACTin w > w N, 



JLLU- 



LOAOCNEXTACTIVITY); 

sazn; _i__ 



GQTO(LOC+li); 

sri; 

SODN? 



ens; 

brm( initiate transmit); 
ens; 



71S53QGG 

7i554ooo 



71555000 
71556000 
7HS7QQQ 



71558000 
71559000 
715O0Q0 



71561000 
71562000 
71563000 



713C700C 
71560000 
7l5ft9Q0Q 



71571000 
71572000 
7 1582000 



71563000 
71584000 
71595Q00 



71586000 
715B7000 
71588000 



71589000 
71590000 
7 15*10 



71592000 
71593000 
71594000 



71595000 
71596000 

71597000 



71598000 
71599000 
7i6onnnn 



71601000 
71602000 

7i6o;inno 



71604000 
71605000 
71606000 



71607000 
71608000 
7 1 609000 



71610000 
71611000 
7. f ■ 6-1 anfl-n 



71613000 
71614000 
71615000 



71616000 
71617000 
71618000 



71619000 
71620000 
71 6 2 1Q0Q 



71622000 
71623000 
71 6 240 QQ 



f 
i 



•m 



4.1 
11 

48 

■Hi 
M 
51 



71625000 
71626000 
71627000 



71628000 
71629000 
71630000 



71631000 
71632000 
716 3-iQQQ 



71634000 
71656000 
716^7000 



71658000 
71659000 
716(10000- 



71661000 
71662000 
7166300Q 



71664000 
71665000 

716O600Q 



71667000 
71668000 
71669000 



7l6 ( '0O0a 
716/1000 
71 6 7 2Q Q 



71673000 

71674000 
716/5000 



716/6000 
71677000 

7i67nnno 



71679000 
71680000 

7i6rtinnn 



71682000 
71O83000 
7l6fl4Q0n 



71685000 
71686000 
?i6H7nnn 



71688000 
71689000 
71690Q0 Q 



71691000 
71692000 
7 1 693000 



71694000 
71695000 
71696000 



71698000 

71699000 
7t7U0nOO 



71701000 
71702000 
71 /0 3000 



71704000 
71705000 
71706000 



43 

i-Kii 

|47| 
|4i 

I 4 ' 
bl 






h- 



L0ADCLASTACTIV1TY); 
SUH(RFCFTVEFNO); - 



saz; 
ens; 
spi; 



LOADCCQNNECTEDBlT 
ST(MOOEMFLAGS); 

ENS? 



+ DTR8IT + INTERLOCKdlT) 



LA8UCCARRIER0N); 



Jill. 



"iQ.nt?w 



16 

17 



19 



22 



24 
25 



27 
28 



30 
31 



34 
36 



36 
37" 



39 



41 
42 
43 



44 
45 



48 



53 

54 



55 



*1 



SP2; 

LOAnCNEXTACTlVMY)J 



SAZN; 

GOTO(NEWACTIVITY); 
SR1I 



sod; 
ens; 

brw(init i at e re>: e ive?; 



ens; 

L A BLfNEW A CTIV I TY); 



HEADINGC'NtW ACT"*' 

sp2; 

U OA Q(MO0EMSTAr uS ) f 



IV1TY 



' * , > 2 > ; 



5ubcl00kf0rring); 
sazn; 

ENS J 



next(receiveenq); 
spi; 

LOADCMOnEMFLAGa); 



sri; 



sli; sli; 

STCMOOEHFtAGS); 
RRMUNTTTATFRFCFIVFH 



iar; 



rri; 



ens; 



LABL(MOnEMIQLE)? 



HEAD1NGC"MQ0EM I M ,"ntt 



%0*0*2)J 



ns?<mi 



sli; 
sli; 
san; 



GOTOIND(MQOEMIDLE); 
L0ADC4); 

stcmc^); 



bhm(finoamessaue); 
sazn; 

< in TniNO(M g n E MiU L £); 



8R«(0PENAUINE)i 
GQTOINOCMOOEWIOUE); 



lablcopenaline); 

H£AOING( 



'OPEN A ","LINE ">Q,Q,2)i 



DS2C0); 

brmcinitiatetransmit); 

Hf.nr tbanismtt^mqvj 



8 
9 
10 



12 
13 
l 14 
15 
16 
17 
18 
19 
20 



21 
22 



1 23 

24 

25 
k 26 

27 

28 
129 

30 

31 
I 32 

33 

34 
| 36 

36 

37 ~ 
k 38 

39 

40 

>« 

42 

*3 _ 

| 44 
45 
46 

I » 
«8 

«9 

I 50 



Lt3 



52 

a 

54 



56 



^1 



spi; 

LOADCMODEMFLAGii); 
ANQMC 2 55 - LIN HA CTIVEtilT . 



% 
% 



ADD(LINEACTIVEBIT + MYSTARTUlT)! 

ST(MOD£MFtAGS)i 

GQTnTNnfnPFNfll TNLU 



Hr STARTS I T3i 



71707000 

71708000 

■ 717090 00 



71710000 
71711000 

7i7iannn 



FMn OF Mnnrw r.nnr 



X 

% 

JL 



71713000 
71714000 
71715000 



THF NFXT PRrrFOllft E. RES E RV E S SP A r . F M FF nEU f" HANm F THF MnpPfct 



71716000 
71M7000 
71718000 



PROCEDURE 
BEG I N 



MODEMSTORAGF.; 



REAL SEGMENT; 



LABLCUNITND); 

HEADING ("UNIT 

nsgco); 



no"#o#o#o> d; 



LABL(UNIT); 
HEADINGCHM r 



DS2(0)J 
L ABLCU OD J 



'.o,n#o,n; 



HEAOINGC'UDl 
DSl(O); 



'»o#o»g,i)i 



LABLCU02); 

HEADING("UD2 
OS 1(0) J 



"#0*0*0,1); 



LABLCUOTOGS); 

HFAnTMfir-unTnpS w iQ>Oi0.iu 



DSl(O); 

I ARLCUDLENGTH) 



M£ADING( 
DS1C0); 



'UOL£NGT' , # , *H 



'>0*0»2)i 



LABLCUNITUPDATE); 

HFAr>TMRf"Uh|)T 



0S2<0); 

I ABLCUNlTBUFFFREhmJ 



UP", "DATE 



"»P,0,2); 



HEADING ( 
DS2C0); 



'UM7 BU%"FFtN En' 



'"0 



%0*3); 



LABt(UNlTBUFFERSTART); 

HEADIN6{ W UNIT 
PS2(Q)> 



BU M,n FF£R ST M # W ART %0#3) 



LA8LCUMTTAIL); 
___ HEADiNG( w UMT T A " ^ " I L. 



DS2(0); 
LABL(UNITLIWIT3; 



•• > o # o # 2 ) ; 



71714000 
71720000 
717^ 1 000 



71722000 
71723000 

? i? Hogg 



71725000 
71726000 
717 2 7 



71728000 
71729000 
717 1000Q 



71731000 
71740000 
717 4 10 Q Q 



71742000 
71743000 
717 4 4000 



71745000 
71746000 
7174700Q 



71748000 
71749000 
71750000 



71751000 

71756000 

71?37Q00 



71758000 
71759000 
71 ^60000 



71760100 
71760H0 
71^60120 



71760130 

71760140 
71760? S0 



71760160 
71760170 
717OQ160 



71760190 
71760200 
71 7QQ 21 Q 



71760220 
71760230 
71760240 



71760250 
71760260 



29 



44 
45 

l> 

47 
48 

SI 
5? 
53 
■54 



1 

I 2 

3 
4 

1 5 
6 

7 

l 8 
9 

10 

11 

12 

13 
14 
15 
16 
17 
IB 
19 
20 
21 



22 

i » 

24 

26 

, 26 

27 

m 

l » 
30 

31 ~ 
32 
33 



34 

i * 

36 

37 " 

38 

39 



40 
41 
42 
«3 



45 
46 

I « 
48 
49 

I 50 
51 
52 
S3 
54 
55 



HEAD1NGC 
DS2C0); 



•UM1 LI"#"MJT 



n f0»0f2)» 



LA8UCMQ0EMTEMP); 

HEADINQC'MODEM T"#"£MP 
nS?(n),{ 



"»Q.0#2)J 



LABLCMODEMPOlNTtR); 

HFADINGf/'MnpfM P " , ^ Q T i\ T £ H 



DS2C0); 
LABL(FIRSTPOINTEH). 



% 0*0*2,)/ 



HEADINGf "KIRST 
DS2C0); 



P"»"OIMeR f, *G*0*2)* 



LABU(STOREDCOUNT); 

HEAOINGC M STOREO "»"COUNT 
DS1C0H 



M *0»0*2)J 



UABLCMCUUNT)! 

HE AD lNG("MCQ i, )MT 



DS2C0); 
L A 8L(RC0UNT)1 



" , q * a > u » I yj 



HEADINGf "RCOUNT 
DSKO); 



" * * * » 1 i * 



LABLCMC2)/ 

HEADINGC"MC2 

psico?; 



♦' * , * U , \) i 



LABL(MCl); 



HE AD INGC'MCI 



"*0. 0*0.1),? 



DSKO); 

LARLCMC?)i 



HEADINGS 
DSKO); 



'MC3 



"*o*o*Q*n; 



LABL(RECNQ); 

HEADINGC'REC N0."*0* 0*0, 1 ) ; 

psif <m> 



LA8LCTRANN0); 

HEAQTMGCMRAN NU"»Q>Q>0, 1 )j 



DSK49); 
LABLCBCOf 



HEADINGC 
DSKO); 



'BCC 



"* 0*0*0, l>; 



UABL(MOOEMFLAGS); 

HEAO!NG( M MODEM F«> 
DSKO); 



♦LAGS 



r >0#0*2)J 



lablcreceivelabeu; 

he a dincc'hec e ive" * " uhel "*0 * c *2 ); 



0A( I GNOREDAT A INTERRUPTS); 

I ARI (TRAMSMfTt Aftf L M 



71760280 
71760290 
71/603 00 



71760310 
71760320 
71760330 



71760340 
71/60350 
71/60360 



71760370 
71760380 
717 6 3 90 - 



7l760«00 
71760410 

717 6 0420 



71760430 
71760440 
7l7ft0a50 



71760460 
71/61000 
7K 62000 



71763000 
71764000 
7176500 



71/66000 
71/67000 
7l7ft8Q0Q 



71/69000 
71770000 
717710Q0 



71/72000 
71773000 

717/qQOQ 



71775000 
71776000 
71777000 



71778000 
71//9000 
71/9QQQQ 



71789000 
71790000 
M79innn 



71792000 
7X793000 
717V40 QQ 



71795000 
71796000 
7 1 797Q 00 



71798000 
71799000 
7180000(1 



71801000 
71802000 
71 803000 



71804000 
71805000 
71806 00 



71807000 
71808000 
71809000 



T, 

:i3. 



-1, 
43 
14 
4:i 
46 
47 
48 
4<i 
60 
Dl 
62 
!>3 
M 
hi 
W> 



>r 



2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 



13 
14 
15 



16 

17 



IS 

20 



22 

I 23 
24 

25 

\ » 
27 
28 

I » 
30 

31 ~ 

I 32 
33 

34 

I 3S 
36 

37 " 
| 38 

39 

40 
I 41 



42 
43 

I ** 
45 
46 

> « 
48 
49 

t 50 



51 

52 

| 53 

54 
55 

) M 

57 



X 
X 

JL 



% 

JL 



% 

% 

JL 



HEADINGC"TRANSMI"*"T lAbEl">0*0»2)> 
DACIGNOREDATAlMERRUPTb); 



LABL(RINGLABEU); 

HEADINGC-KING LA"* W BEL 
nACANSWFRRTNGl* 



71810000 
71811000 
71 H 12000 



% o#o*2); 



71813000 
718X4000 
71815000 



LABL(CARRIERLABEL); 
„ H£AniNfi( w CAHHlFR">" 



I flBEL. w rOtn»?)i 



OA(NQRMALCARRIER); 
LARK CLFARTOSFNDLABtl. )J_ 



71816000 
71817000 
71818000 



71819000 
71820000 
71821 



HEAQING("CLEAR T"*"D 
DACNORMALCLEARTOSEND); 



SEND "*0*0*2)/ 



OOP 



71822000 
71823000 
71H 24QQ Q 



LABL(MQOEMSTATUS); 
HEADINGS 
DS2(0)j 



MODEM S"* M TATUS %0#Q*2)* 



71825000 
71826000 
71 82 70 



LABULASTACTIVITY )> 

HFAniNfiC"UAST 



Ar. H /"TIvlTY w fQ,o*gjj 



DS2C0); 
LABKNFXTACTlVITY) 



71828000 
71829000 
718^0000 



HEADINGCNEXT 
0S2C0); 



AC»"TIViTY n ,QtQ,Z)i 



71831000 
71832000 
71833000 



I.ABLCACT10NTYPE); 

HEAOINGC'ACTION "»"TYPE 

ns?co)i 



7183400O 
71835000 
7 18 36000 



%o*o*2); 



71837000 
71838000 
716.19000 



ENO OF MODEM STORAGE/ 



71640000 
718132000 
718^3000 



THE FOLLOWING PROcEQURl CONTAINS Th£ TABLES NEEDED BY THE 
MODEM CODE. 



71854000 

71855000 
71856000 



PROCEDURE M0DEMTABLE3; 
BEGIN 



7l8b7000 
71858000 
71859000 



% 
% 



real segment; 



71860000 
71861000 
718Q2Q0Q 



% 

JL 



THE FOLLOWING IS TABLE STUhAGE FOR THE MODEMS, 



71863000 
71864000 
71865000 



lablCunitbufferstarttablE); *" 

HEADINGC'UNlT BU"*"FFtR ST"* m aRT TAB h #"LE 
OAtSTARTnFSHFTB UFF E R?; 



71866000 

71874 000 
71882000 



• 4); 



OA(STARTOFKEYINBUFFER); 
OA(STARTOFCRBUFFER); 
QACSTARTOFSPnBUFFER), 



71882100 
71882105 
71882UQ 



dacstaktoflpbufferj; 
dacstartofplnchbuffer?; 



7l882i20 
71882130 
7 1 98 2140 



LABL( UNI TBUFFERENO TABLE); 

HEADINGC"UNIT 8U%"FFER EN","0 T ABLE"*0> 3 ); 
DA(ENDOFSOFTBUFFFR); '_, 



71882150 

71882160 
7 18 8 21 70 



71882180 
71882185 
71882190 



111 



-I 



Hi 
48 



52 

5.1] 
54 



2 
3 

4 
5 



7 

8 
9 
10 
11 
12 
13 



14 

15 



16 

, " 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 

31 ~ 
32 
33 
34 
35 
36 
37 ~ 
38 
39 
40 
41 
42 
M 



45 
46 
47 
48 
49 
50 



51 
52 
53 



54 
55 



dacendofkeyinbufflr); 

dacendqfcrbuffer); 

oac e nd o fsp u biff e r) ; 



DA(ENDQFLPBUFFER)-i 
OACENOOFPUNCHBUFFEH); 



LABL(UNITUPDATETABLt); 

HEADINGCUNIT 
OA tQUEU E S.i i 



UP"*"DA1L TA","6LE 



'#0*3); 



DA(KEYINQ); 

OA(CARDREADERQ); 

nACSPOUTOTAIpi 



DACPRINTERTAIL); 

DACPUNCHQUEUETAIL)> 



LABL(UNITLIMlTTAeLE); 

HEAOINGCUNIT 

nAfsnFTQTAiu; 



LI%"HIT TA6%"LE 



0#3) 



DACKEYlNQTAIL)' 

daccardreadehqtaid; 
.oa c sp o utq) ; 



OA(PRINTERQ)J 
OACPUNCHQUEUE)* 



LABLCLENGTHTABLE); 

HEADINGC'LENGTH M , "TABLE ">Q,0*2)i 



osko); 
osxc-73); 



DSl(-(PRINTERLINELENGTri + 3))j 



LARl.fTnfiTARLF)i 



HEADINGCTOG TAB% n LE 



%0#0#2)J 



0S1C0); 



0SK8); 

DSico); 

0S1C1 99? ; 



LABLCOUTPUTUNITTABLE); 
HEADTHGfUUTPUT "i"UMT TA%"BLE %Q;3 ) ; 



DS2(0)j 
0S2C6); 
052(10), 



DS2(8); 
UABUUNPUTUNTTTA8tE)f 



HEADINGCINPUT U"»"MT TAB%"LE 
DS2C0)/ 
D S 2 (2 )J 



",0>3M 



D52C4)i 
Q$2<0)* 



LABUPQbERSOFlO); 

HEADINGC'POWERS ","0F 10 'V0,0,2)> 



F0« II »» STEP 1 UNTIL 10 DO DSHIJUNK t= io x jj)j 
LABLCM A SKT A BLE) ; — — 



882200 
882210 
8 82 2 2 



682230 
882240 

8 82 250 



682260 
882265 
862 27 



882275 
882280 
682290 



882300 
882310 
862320 



882330 
862335 
862340 



882350 

682360 



882380 
882390 
882400 



883000 
884000 
685000 



886000 
887000 
fiJL8_0_QJL 



869000 
8^0000 

aviooo 



692000 
893000 
694000 



695000 
896000 
897Q 0Q 



898000 
899000 
900000 



901000 
V02000 
9Q3Q00 



904000 
905000 
906000 



907000 
908000 
909 



910000 
911000 
912000 



913000 

914000' 

91 5 000 



916Q00 
931000 
9320 00 



r> 

26 

M 

■n 

31' 

I.T!, 



.; m i 

'4l,| 
■!l 
l4i 



46 
47 

-1 

'..ill 

51) 

■i 

-,3 I 

'14 

S5 
56i 



12 



15 
16 



18 



20 



21 



24 

25 

I 26 



30 
31 ' 



: 32 

33 



36 



46 



48 



CO 

CO 

3> 

00 



53 



54 



HEADING("MASK 
DSK255); 

D S l C2 5fl 3 ; 



TA","BLE 



"/0*0*2)) 



DS1C251); 
DSK253); 



71933000 
71VJ4000 
71V J5 00 



% 
% 

JL 



71*36000 
71937000 
719 3 6000 



X 
X 



THE FOLLOWING VECTOR CONTAINS THE ADDRESSES Qf 
TO HANOI F All HF THF COhDlT f H\S THAT THF mOLM 



HAVE STATUSES FOR 
I AB1 tAETTriNU AWF. M 



THE ROUTINES 
ROUTINES 



HEADINGC'ACTIGiM "#"lAtfLL %0,Q>2); 

QA(IGNnRFnATATNTFHHUPTS); 

DA (IGNOREDAT A INTERRUPTS)) 

DA(WAKEUPLINE )* 

nan nnnrnarnQW 



DACSENOACK)* 

OA(LOOKFORACK)^ 

DA(SENriANAK): 



DS2C0M 

OA(SENOAHEAOER); 
fun nnKFnRHPflnLw^t 



DACSENDAHF.ADER); 

DAlSTOREMSG); 

A ( IGN O R E D A TAI I NTERR U PT S ) i 



OA(CHECKBCC)i 

DA(ACKNOWLEDGELAST«EC); 
nACnECYPHERRI'SPHNSE)! 



DACKILLTHELINEJ; 

DA( IGNOREDAT A INTERRUPTS); 



X 

X 



I ABL(UPDATE\/ECTnfi^l 



HEADING("UPDATE "^'VECTqW %0,0>2)j 
DACREADYSTRING); 
nAfSTARTOFSPFTrillFFER)? 



-LF- 



OA(STARTOFKEYINBUFFER); 
OACSTARTOFKEYINBUFPER); 
RFADFRTOfi THEN 



BEGIN 

da(Startofcrbuffer); 

DAtSTABTnFCHHIlFFFHW 



eno; 
dacstartofspobuffer); 

nA.fSTABTnFSPnaurrFWii 



IF PRINTERTOG THEN 

BEGIN 
OA(STAHTnFlPBUFFER)? 



4* 



DA(STARTOFLPBUFFER)* 
ENOi 
PUNCHTfifi THEN ; '" . ■ 



• 



BEGIN 

da(startofpunchbuffer); 
uacstartofpiinchbufffr); 



X 

JL 



end; 



71939000 
71940000 

7i ?m (inn 



71*42000 
71943000 
719<UQOO 



71945000 
71946000 
71947000 



71948000 
71949000 
719 5Q000 



71951000 
7195200C 
71 9 5 3QQQ 



71954000 

71955000 
Ti9S6flnn. 



71957000 
71958000 
719^9 00 



71960000 
71961000 
71 9ft 2000 



71963000 
71964000 
71965000 



7196S010 
71965Q20 
7i965n^n 



71965040 
71965050 
71965060 



71965070 
71965080 
719 65090 



71965100 
71965110 
719651PQ 



71965130 
71965140 
71965^0 



71965160 
71905170 
719651A0 



71965190 
71965200 
71965210 



71965220 
71965230 
71965240 



71965250 
71965260 
71965270 



,3.1 



■1i 
43 

44 

-.1 

47 ' 

48 

19 

60 

•j i 

SJ 

53 

54 



J?' 



71,965280 
71966000 
7lVn7Q0Q. 



90000000 
90001000 

9noo?oon 



90UUJ000 
90004000 
Q05C 



-SLXi 



>Q00 



90005100 
90006000 
90007000 



900Q8000 
90009000 
90Q10000 



900X1000 
9001M00 
90012000 



9001J000 
90014000 
90015000 



90016000 
90017000 

.90018000 



90018100 
90019000 
)020( 



J510J 



1000 



900^1000 
90022000 
9Q023000 



90024000 
90025000 
90026000 



90027000 
90028000 

9nQ?9ooo 



90U30000 
9G031000 

<?oo:nioo 



90032000 
90033000 
90034000 



90035000 
90036000 
90UJ6: 



1 100 



90037000 
90038000 
90039000 



90040000 
90041000 
9Q042 QQQ 



90043000 
90043100 
900 44 000 



90046000 
90047000 
90048000 



90049000 
90049100 
90050000 



"Ml 



4) 
hoi 



J5A 

..L 6 > 



END OF MODEM TABLFS; 



\ 2 

3 

4 

6 
7 

I 8 
9 

10 

12 
13 

I M 

15 

16 

I ' 7 
IS 

19 

I » 
21 

22 
I 23 

24 

25 
I 26 

27 

28 

I 29 

10 

31 ~ 

32 

33 

34 
i '5 

36 

'7" 

38 

39 

40 

41 

42 

13 ~ 

44 

45 

♦* 
47 
48 
49 
50 
51 
52 
53 
54 
55 






% 
% 



% 

% 



WHILE LOC, ADDRESS |_SS 288 DU DSUO)/ 



storage; 

if printertog then l 1 nepri ntersturage; 

IF REA.DFRT.OG THtN CARPRfcAUEHSTQrtAGEi, 



if punchtog then punchstorage ; 

spostqrage; 

modemstorage? 



executive; 



IF READERTQG THEN CAROREADERInTERRUPT ; 
IF PUNCHTOG THEN PUNCHINTERRUPT* 
MnnFMINTFRRIlPT; 



PRECISION u i; 

TF READERTQG THEN C ARHHE ADfcRN J THL A D Y? 



IF PRINTERTOG THEN LI NEPRINTERREAQ YJ 
IF READFRTHG THEN C ARQRE AOf RR E A i lY ; - 



if punchtog then 
modemreceive; 

MQDEMrRANSMlTj 



PUNCHCODEJ 



IF READERTQG THEN C ARDREADER*QVtR; 



translators; 
■spncnnr; 



keyincode; 
spoutcodej 



modemcode; 



SCANNKRSt 



spacehandler; 
interruptcode; 



IF PRINTERTOG THEN LI NEPRI NTERTABLES; 
IF READERTQG THEN CARDREADEHTABLtS; 

TF PUNCHTOG THEN PU NC HTa BLES J 



M00EMTA8LES; 

SP0TA8LES; 

TNTTlALlZSYSTFMi 



FN D UNT IL DONEI hCPF , ; 



IF ERRORS n THEN BEGIN 

w r i te recqrd; 



CODEARRAYCO] » * LASTCODEINX; 
C0DEARRAYC1] »= RECORDS* 
WRITE(CnnF.>60>CQ0£ARRAYC»i )r 



lock(code); 
end; 



h 



PUNCHONLfi 

IF ERRURS s AND COMMON THEN PUNCHER; 
TF NHT NOHFAnTNT, THE n Siimhawy; 



"1"" 

END, 
ENDlFNn. 



Last card on ocrdtng tape 



6 
7 

9 

10 

12 
13 

15 
16 

► »' 
18 

19 

| 20 

21 

22 
| 23 

24 

25 
| 26 

27 

28 
| 29 

30 

31 ~ 
| 32 

33 

34 
l 35 

36 

37 "~ ' 
i 38 

39 

40 

41 

42 

43 ~ 



JO 



45 
46 

I 47 
48 
49 

I 50 
51 
52 
53 
54 
55 
56 



900bl000 
90052000 



900b3000 
90054000 
9V9V9099 



i 
i 



li'U 



14 
4S 
If 
47 
48 
49 
50 
51 
5? 



J;J 



LABEL OOOOOOOO0PRIMEK001751O0CC LX OBJECT /READ;F ILE SOURCEF ILE*S YMBOL/DC 1 O0O«-«-0UOOO00 



OBJECT /READ 



2 

3 

4 

6 

6 

7 

8 

9 
10 
11 
12 
13 

I » 
15 

16 

I ' 7 

IB 

19 

, 2 ° 
21 

22 
, 23 
24 
25 
26 
27 
28 
29 
30 

31 "" 
32 
33 
34 
35 
36 

37 _ 
38 
39 
40 
41 
42 



46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



47 

I 

•fci 
iMJ 



